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ABSTRACrr 

This paper documents the basic ideas and constructs for a general 
physical/physiolqgical process level winter wheat simulation model. 

It is a materials balance model which calculates daily increments of 
ptiotosynthate production and respiratory losses in the crop canopy. 

. It simulates the partitioning of the resulting dry ratter to the 
active growing tissues in the plant each day. It simulates 
transpiration and the uptake of nitrogen from the soil profile.. It 
incorporates the RHIZOS model which simulates, in two dimensions, the 
movement of water, roots and soluble nutrients through thp soil 
profile. It records the time of initiation of each of the plant 
organs . These phenological events are calculated from temperature 
functions with delays resulting from physiological stress. Stress is 
defined mathematically as an imba],ance in the metabolite supply: demand 
ratio. Physiological stress is also the basis for the calculation of 
rates of tiller and floret abortion. Thus, tillering and head 
differentiation eire modeled as the resultants of the two processes, 
morphogenesis and abortion vi^ich ray be occurring simultaneously. 
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Introduction and Objectives 

The WINTER WHEAT nodel was first described, in abstract fbcm, in 
1978 (Sinika, et.al,, 1978). As has been noted elsewhere (Baker, 
et.al., 1982, Fye et.al., 1982, Marani ahd Baker, 1981), the 
feasibility of building simulation models of plant growth and yield 
has recently been demonstrated and models of cotton, corn^ alfalfa, 
soybean, peanut, sugar beet, winter wheat, rice and sorghum are hdW 
available. Such models have been develop^ at research locations in 
the US, Englcind, Australia, the Netherlands, USSR, and Japan. Most of 
this work may be viewed as a natural extension of the grovrt;h analysis 
work in England beginning with Fisher (1921) ar^ Gregory (1917] and 
tha later work of Watson (1947), and in the USSR, the work of 
Nichiporovich (1954). The experimental research in crop canopy 
photc^ynthesis of Musgrave and his students in the US (Hbss, et.al., 
1961, Baker and Musgrave, 1964), and that of Murata (1961) and others 
in Japan, Duncan, et.alr, (1967) in the US, deWit (1965) in the 
Netherlands, cind Ross (1969), and Toomlng (1967) in the USSR 
hnmediately precede our vork in the effort to predict growth and yield 
of field crops. 

Our objective in developing WINTER WHEAT is to identify and 
assemble the factors determining winter wheat growth and yield in a 
format v^ich will aid system design (breeding and new cultural 
practices, and catoinations thereof), crop management decision making 
at the farm level, and yield forecasting. Thus, we see this effort as 
an ongoing process of identifying aiid mathematically testing 
(sensitivity analysis) the factors determining winter wheat growth and 
yield, and, of synthesis in v^ich these factors are assembled for 
rational use by agronomists and farm iranagers. 

General Model Strategy, Characteristics 
Features and Rationale 

Since winter wheat has tremendous ecological range, the above 
objective implies a general model capeible of simulating crc^ growth 
over the widest possible range of climates and soils. Since different 
environmental factors affect different physiological and physical 
processes in different ways and because we view the model development 
as an ongoing affair in which new ideas and information eibout the crop 
are incorporated as needed, and as they become available, a process re- 
lated modular structure was indicated. 

The model is dynamic because photosynthesis, respiration, growth, 
and water flow change rapidly with tenperature, light intensity, and 
plant water status . Except for pollen dessication and organ ^>scis- 
sion, the plant processes are oontinuoUs, so, the model must be es- 
sentially continuous. However, we have found it permissible arid appro- 
priate to use discrete time steps which, depending on the process 
being simulated, vary in length. This permits great savings in the 
computer cost of running the model. Length of the time steps (for veu:- 
ious processes) irust be determined irathematically, evaluating size and 
distribution of errors generated by using progressively longer time 
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steps . 

WINTER WHEAT, like nost crop simulators of plant growth, is a 
materials balance model « The plant model contains pools of nitrogen 
and labile ceurbohydrates which arrive via the transpiratic^ stream and 
the photosynthetic processes res{)ectively. These materials flow 
(through growth) to the leaves, stems, glumes, fruit and roots. 

Vaurious losses nay occur as a -result of insect damage and the natural 
plant processes, i.e. senescence and abscission in response to 
physiological stress. Redistribution (mining) of nitrogen within the . 
plant is modeled. The initiation of organs on the plamt occurs as a 
series of discrete events, with initiation rates depending on 
tenperatur;? and the physiological status of the plant. 

In general, the plant* s responses to «aivironmental factors are as 
follcws; j^hotosynthesis depends on light intensity and light intercep- 
tion, and, it is reduced by water stress and very low leaf nitr<^en 
concentrations. Respiration depends on terperature and plant biomass. 
Growth is a function of tenpetature, tissue turgor and metabolite 
supply . Thus f pliant water atatus is a determinant of both supply and 
denand for iTetabolites. Water stress reduces photosynthesis, 
tremspiration, and nitrogen uptake. It also (at a different level of 
stress ) reduces grcwth and the demand for nutrients , The 
supplyrdemand ratios for carbohydrate and nitrogen are used as indices 
of stress induced organ absciasion. Here, we assume that the 
metabolite supply:demand status of the plant determines (or shifts) 
hormone balances which result in the abscission of organs. Thus, a 
severe moisture stress which interferes with jtiotosynthesis and. 
nutrient uptake nay result in significant fruit ^ortion> v*Tiile a mild 
moisture stress which reduces growth (demand) more than (supply) 

• photosynthesis may have no effect or even a positive effect on fruit 
retention. 

WINTER WHEAT gains its broad ecological range, i.e. its 
capability to simulate crops on virtually any soil type, through the 
incorporation of RHIZOS. RHIZCB (Lambert and Baker, 1982, Whisler 
et.al., 1981) is a comprehensive simulator of the soil processes, 
including root growth. While the WINTER WSEAT source listing included 
here (Appendix a) includes the RHIZOS section, a detailed description 
is not provided, (ref. Lambert and Baker, 1982). "RHIZOS'^ is the name 
given to a system of subroutines designed to serve as a general 
rhizosphere model for all croES providing the above ground sections 
with three parameters; an effective soil water potential used to 
calculate plant water potential, an estimate of metabolite sink 
strength In the roots, and a mineral nutrient uptake rate. 

The appendix contains a source listing, a typical input data set, 
dictionary of terms , and a typical output listing . The source con- 
tains many comments both to m^e it readable and to cite everyone who 
contributed ideas or data either via publications or personal commani- 
cations. There are linany.. To facilitate program development and up- 
dating, labelled ooimtons ware chosen as a means of passing information 
in and out of subroutines- Just after the first block of labelled 
oonmons (ref . Appendix a) J block data section appears in which tlie 
variables are initialized. These variables are ^u:ranged by number of 
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characters and listed alphabetically for 2cces3ibility, 

The Subroutines 

fftiN 

A simplified flowcharting of the model appears in Figure 1. A de- 
tailed flowcharting labelled MAIN Program follows. MAIN calls the sub- 
routines and performs a few calcnjlations pertaining mostly to 
input/output. First, several state variables describing the plauit are 
initialized. Then, the initial Iteaf and root weight are read in in- 
teractively from the terminal (device 1). A few computations pertain- 
ing to the initial status of the plant are inwde, and tiien a number of 
other agronomic inputs are read from the terminal and from the data 
file (device 5). Soil p^ameters are set up and initial soil- 
conditions are defined in the soil matrix. Then, the climate data are 
read in from the data file (device 5). 

At this point the simi;lation begins, and MAIN calls the process 
subroutines daily. CLYMAT calls the subroutines date and IMPSOD. 

SOIL calls most of the RHIZOS subroutines. They produce soil water 
potentials and the amount of nitrate taken up by the plant each day. 

The daily increment of dry matter produced is calculated in PNET 
and distributed to the various growing points in the plant in the sub- 
routine GROWTH. GROWTH, in turn, calls RUTCRO,- a subroutine which cal- 
culates root growth:. GRO(^ also calculates the carbohydrate stress 
and calls N]^o whioh calGUlates nitrogen stress and allocates to the 
vau:i6l'»s plant parts the nitrogen v*jich has been taken up. 

All morphogenetic processes, as well as records of the abortion 
of tillers and fruit, are handled in MORPH. 

CLYMAT 

Each day's maximum and minimum; teinperatures in degrees Celsius 
eure provided as input to the model . CLYMAT converts rainfall data from 
inches to millimeters. Qtpirical relationships based on data 
collected in Mississippi over cotton are used to estimate net 
radiation from solar radiation, and to estimate the average 
tenperatures during daytime and nighttime from the maximum and minimum 
tenperature data,. Note that these relationships (especially the 
average tenperature functions) are location specific. They should be 
validated for each site where the model is used. 

(^ancpy light interception is calculated in CLYMAT. The model 
defines interception as the product of two terms. The first is a 
ground cover terra, sinply tlie maximum leaf length divided by the row 
width . The second is a canopy light attenuation term based on leaf 
area index. The coefficient, 0.4, was taken from Monteith (1965). 

This canopy light interception mcx3el has not been validated. 

Finally, CLYMAT calls TMPSOL which calculates soil profile temper- 
atures at 2, 4, 8 and 16 inch depths from regression equations of 
McWhorter and Brooks (1965), These equations express soil tenperature 
as linear functions of the running average of air tenperature (over 
the preceding 7 days). These enpirical relationships were developed 
by McWhorter in a fine textured clay soil in Mississippi . They do not 
account for soil moisture effects on soil tenperature. 
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Koie«» 


tnUUliu the v«rUbU« which ere *«e in 
thn ■or^ho|«n«|i| ctthroueina «n4 ar« ua«4 
Co U4UaM, of dnvniopMnCt 


IiHeinlUa eh« yariihUt whtra ata«i fiuM, 
and ifaih wishc foe each art afeotad* 


tnUialiaa tha war iablaa where nuidhar df 
aaikalatti fioroey, and laavaa for aacH 
•Caa ara acorsdi 


XniciaUaa cha variahlta whara day of 
oeeuranca of laac clllar and |aae Uaf 
iaieiacad froa aCaa X ara atorad. 
Xnieialiia the variahXt whara nuaiiar of 
eillara iaieiacad froa aCaa X ara acorad. 


Xnieialiaa cha yariablaa aae up eo aeora 
cha aeeuaulaead eaaparaeura ainea tha 
inieiacion of tha iaat tiUar froa acaa I, 
and ainea tha initiation of acaa X. 


For aneh iaaf, yariablaa aae up to aeora 
waight, day of inieiaciont and aeeuaulaead 
eaaparaeura ainea Inielaeion ara aae eo 
saro. 


AccUaulaeor for eaaparaeura afear haading 
ia aae eo aaro> 


Tha variable for nuabac of aaeondary rooea 
ia aae eo taro> 


Toeal leaf area ii aae to aero. 


head in initial leaf weight, root wai|ht, 
and ainiaua value i!or nae phoeoaynthaa ia« > 


head in plane population, nierogan 
avallabiltey faeeor, laeieuda, inieial leaf 
araa indaa, nuobar of Iteraeiona par half 
day, and a root growth callbraCion factor. 
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MAIH Conclnuad 


ORjaiNAi ymM 
9 F POOIt QUALITY 



MAD( 1 i *)xuAr u , Rowirliriun , 
G,THlt.H,rACL 


I WAp(tt*)tffR»iffr,wyWiwrii' 


|rorrAC«AOA»A5 . A/ WffLT~l 




1 W-ROWSP/MK 1 



1 UAPWI-LEAPHU, 1) 






STEMWT-0. 

CLU(«T-0, 

GRAHWT»0. 



I 


WJOT«»<»IWr( V, 1| U+RTMT(l,2, t)* 
RTWt(2»l,l)«XWr(3,l,l)) * 
POWAC*2./llOWSP*lOO 


PLANf W-lCAr vr titOOTMT 
VICWT-UArWT f ROOTVr 


R««4 eh« variabUf «4iieh giva Bini.wm 
lavaU of nUrogan in Uava», leaMi rooeii 
and giuMia (raaarvaa up ba vithdrawn unfcil 
thit aoncantracion ia caaehad), 

Raad cNa ra^uirad nierogan eoneaneratiton 
foe naw plane growth. Valuaa ara raad for 
laavaa, acaai, rooca, glunaa and gralni 

Road initial laaf langeh. row apaeing, 
graviep root factor, root growth 
Calibration factor, leaf growth calibration 
factor, «nd aoao printout control 
yariabioa. 

Convort fron planta par aero to aquara 
daelMtara par plant. 


Call width ia aqual to row apacing dividod 
by nunbor of colunaa. 

Total loaf walght ia aat to bo tha weight 
of tha firae loaf on aeon ona. 

Total aeon, gluam, and grain woipht for tha 
plant ia aat to laro. 


Plant root weight it a function of plane 
population, row apacing, and weight of the 
roota in the toil taction. 

Total plane walght and vagatativa waight ia 
aat to be loaf weight plut root walght. 



Tha aauune of nitrogen in tha laavaa ia pet 
to be three percent of tha leaf walght. 

The aaount of nitrogen in tha roots ia aat 
to bo three percent of tha root walght, and 
tha awount of nltcogan in the stone, 
gluana, and grain ia initialised at sero. 

Leaf conContraeion of nitrogen ia aat to 
three 'percent. 

Nutdbar ttana on tha plant it aat to be 
one. 

Tha accuauUtor for tenperatura tinea 
initiation of the laat teconday root, and 
tha day the la'^t secondary root was 
initiatad, are sat to taro. 

Spring ia arbitrarily tat to begin on the 
aavantieth day that the average eenperaCure 
ia at or above 4*C. 

The nunbac of laavaa on ttan one is set at 
one . 

The canpecature accunulator for the 
sLnulation is bat to sero. 
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OF FOOl qmUTf 


imif Conclnuwl 



local plaac nltroian la aae Co i>« eh« ium of 
tha nltroiait In tha plant parct» 


Raa4 Cha nuahar of loll t',orlaofia of dlffacont 
eharaecartacleai an4 raa4 yaluaa for eha 
varlabtaa aliich daflea eha aoll 
eharaecarlaeicat 


Raa4 eha iBiclal valua for eha yoluaa of 
^MCar at eha hoecoa boun<iary> ‘ 

Intelallaa eha eounear for nuafcar of aotl 
horlaona an<i iae eha lReraaane> 


Do for aaeh of Cha Uyara> 


Daearalna eha lualaua flow of waCar for aach 
toll horicon* 


Sae eha Inletal flald capacley for waCar 
coneane tot aach iapar lu tha aoll proflla* 


Do f jr aaeh coiuan In eha aoll profllat 
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S«c eh« initial value (or voluaatric wecer 
concenti toll wecer di((uaivit/t and toil 
weter poeancial (or each toil celi> 


Read the na*a o( the aoil type and Che nuaber 
of tablea chat apply, chan write thaae valuea 
to the prinUeri 


Read in the tablea chat relate apil type and 
their raaiatanca to root |rowth> Write theae 
tablea out to the printer. 


The counter (or the nunber o( days with 
average ceaperatura at or above 4*C ia tat 
to aero. 

The ciaa (or grain (ill and the nuaber of 
daya ainca anchaaia began are inicialiaed. 


Read in the daily climaca data. 


Increaenc the day counter. 


Call Che CLYMAT subroutine. 
Call the SOIL, aubroucina. 


K the average teaperaCUra is balow 4*C 
than do not count this day in the aiaulation, 
and skip the routinaa chat deal with other 
then soil proeeaaaa. 




■h 
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Call the PNET aubroucina to calculate 
photoaynchaaia . 
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H4IN COflCinuai^ 




C«ll ch* UROt/TH tubroucin* to diacrtbuca eha 
photo* ynch«^9> 

Call ch* HORPH lubrt^ucln* to dotoraino tho 
■ta|o of groMb> 

CaleuUto eha watar balanca. 


If /ou hava raachad eha ba|innin| tf 
AifTHrjOlS, than eolculaeo eha rai^uirad eiaa 
lot fraiit eming. 

Tha avaraga dally taiipar«eura llnca ANTHESIS 
bagan la accuau Latad . 

Tha wnbar of day* ainca AMTHCSIS bagan ia 
IncraMt.nead • 

Calculata eha avaraga taaparaeura alnea 
ANTHCSIS bagan. 

Oaearalna eha eiaa for grain filling which 1* 
a function of eanparaeura. 


Liaie eha eiM for grain filling Co ba a 
■axiaua of SO day*. 


Daearminc if it i*^ tiaa for a printoue of 
raaulta. 


If eina for grain filling i* aaeiafiad, ehan * 
print eha raaules. 


If it ii eha fi!Ne day of eha aiwilation, 
than print eha raaulci. 


If tha raauica arc not to ba prinead, than go 
Co eha baginning of tha daily loop. 
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ORIGINAL PAGE 
OF POOR QUAL'iTY 


CLVHAT Subroueln« 


FloMCbliet 



Npcm 


RX It dslX.ly raditelon In Unglay'it 

TMAX la ruxlBUB dally taaparatura 
( *C)» 

TMCI la mlntaua dally eanparatura 

ro. 

MK20 la aae to 1 it Rain la actually 
Irrigation. 

Rainfall (or Irrigation) la eonvartad 
to mllllaatara. 

PAVmm la tha Julian day, 

Solar radiation la eonvartad to 

watta/aatar**2. 


Day langeh la ealculaead aa a function 
of latltuda and Julian day. 


Avaraga dayelma tamparaeura la 
calculated aa a function of the maxiaum 
and minimum dally tamparaturaa. 

Avaraga nishttima tamparatura la 
calculated aa a function of the maximum 
and minimum dally tamparaturaa> 

Call tha DATE aubroutlna to convart 
Julian data to calendar data. 
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DAYTTM ■ DAYLNC j 



NYTIYM « 24. -DAYLNC j 



TAVG • (TOAYADAYTYM4-TNYT* 
MYTTYM)/24. 



TERMl - (2.*XLEArL/R0WSP) 





|tERM 2 - l.-EXP(- 

'.4*UI) 



j INT - TERMl* 

'TERM2 


CALL TMPSOL 


MTUWl 


Th« varlablp DAYTnt it ai^e 'Ao b« the 
nuabar at dayUghe hours in ch« 24’hour 
day, 

Th« variabla NYtTYM is sac Co ftha nuabar 
at hours iroa sunsae to sunriso* 


Tha avaraga daily tsaparatura is 
calculatad . 


* 


Tha paroanesga of light inearcaptad la 
dat^c^inad as a function of row>spacingi 
la>;gth of tha largast laaf on tha 
piint, and leaf araa indax. 


Call tha TMFSOL subroutina to cslculaca 
toil taaparaturaa, 
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The reader ia referred to Lambert aOd Baker (1982) , Meurani and 
Baker (1981) and Whisler et.al. (1981) for detailed descriptions of 
the subroutines tailed from SOIL. However, a brief statement of func- 
tion is offered here. In general, the purposes of the RHIZ06 section 
of WINTBR MIHEAT are as follows: 

(a) To provide the plant with mineral nutrients (especially 
nitrogen) . 

(b) To provide soil water potential information frtsm the root 
zone for the calculation of plant turgor levels and leaf water 
potentials. The loaf water potentials, in turn, are used to 
estimate v^ter sfeess induced ieductieps in growth. 

(c) To provide 'die above ground model with an estimate of the 
root sink strength for carbon and nitrogen oon|)ounds. 

RHIZOS, a two dimensional model, considers a croSs section Of the 
soil under one row. Both dimensions of the section are variable, the 
width being row width, two meters being the depth. This section is 
one cm thick and it is assumed to be longitudinally representative of 
the row. It is subdivided into a 6x20 matrix. It keeps a daily 
record of the amount of water, nitrate and ammonium nitrogen and root 
naterial in each cell of the matrix. An age vector of root mass is 
naintained .and used to estimate root growth and water uptake. 

Fertilizer may be a3ded at any depth. If fertilizer is to be 
added on a given day, ERTLIZ is called. 

If rainfall or irrigation occurs, GRAFLO is called which distri- 
butes the water vertically in the profile. Anmonium ions are assumed 
to be adsorbed on soil colloids and to be stationary. Nitrate nitro- 
gen, on the other hand, is assumed to be in solution and to move with 
the soil water. 

An ev^transpiration routine (ET) adapted from Ritchie (1972) is 
used to provide an enpirical estimate of water removed from the 
profile each day, This amount of water, then, is sinply ittposed on 
the UPTAKE subroutine, 

During stage I drying, water is removed from the sunlit cells of 
the top layer of the matrix in UPTAKE. 

Transpiration losses occur in those cells containing roots. The 
amount taken from any given cell depends on the amount and age distri- 
bution (permeability) of the roots in the cell. 

Redistribution of water within the soil profile occurs in CAPPLO. 
Again, nitrate nitrogen moves with the moving soil water. 

Ths mineralization of organic nitrogen and the conversion of am- 
monium nitrc^iii to nitrate occurs in NITRIF. 

PNET 

As noted earlier, WINTER WH^T is a materials balance model, 
i,e., each day of the growing season an increment of dry matter is 
produced and distributed to the growing points in the plant, the end 
point yield, then, being the dry weight of the grain. 

In a review of the subject of canopy photosynthesis 
(Baker, et.al., 1978a) a number of factors were considered in the 
choice of approach to the problem of estimating canopy photosynthesis. 
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flowchart 


NqCM 



Output tha valua at the variabla 
VN03C(1,1> 


OHA ■ 

>9 

1 

RNN03 

■ 9 

i 

IUmH4 

- 9 



COHTXNUE 1 



DO 111 I - 1, MOITR 


CALL UPTAKE 


5 


CAU iM.no 




CALL ET’ 



SUPNO. 

SUMES 

SUMEP 

■ 9’ 
- 1. 
- 


CLXMAT(8) !• tha aaount ot farttllicr to b« 
appliod today. 


On tha firat day of tha ■inulatloiv ca^ the 
fartlliaar aubroutlna to add nitrotan found 
in tha ocianle tutcar, and* to add raatdual 
nitrata and aaMoniua to tha profita. 


Afear tha firat da> tha organic aattar and 
raaidual nitrata and anoniuB variablna ara 
aat to xoro. 


If fartilizac ia to ba aopliad chan call the 
fartiiizar subroutina (FRTLXZ). 


If rain or irrigation occurrad, Chan call tha 
gravicactonal flow aubroutlna (GRAFLO). 


Call tha eyapoCranapiracion subroutina (ET), 


Inicialisa tha aecumulaCora for uptaka of 
nitrata, avaporaClon fron tha soil, and 
transpiration from tha plant for tha day. 


Xcaraca hOITR (an input paranacar) tlmas 
during tha daytima. 

Call tha uptaka subroutina (UPTAKE). 
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Aeeuaulatt eh* nierae* eak*n up by eha 
rooea durlnf eh* day. 


Call CAPFLO Co radlaCribue* waC'^r and " 
nierat* in. raaponaa co poeaneial gradlanea 
eauaad by eh* wliehdrawal of waear. 


Add parlodtc eranaplraetpn eo ,eh* 
accuawlaeor. 


Add par Iodic avaporaeipn froa eh* aoll 
eo eh* accuaulaeor* 

Convare nleraea upeaka Eo UniEi of 
grau par plane. 


learaCa NOITR (an Inpue paraiaaear) 
eiiMa during eh* nighe. 

Call CAPFLO CO radlaeclbuc* coll waear 
dui’jng eh* nighe. 


Do eh* nicrificaCion procaaaaa 


t 
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The stable models of Monsi and Saeki (1953 deHlt (1965), Duncan, 
et./id., (1967), and Tooming, (1967) consider the leaf as the basic 
phobosynthebic element. They treat an ^tceedingly oonplex subject re- 
quiring a vast amount of input data describing the physical location, 
tlw4 climate and the angular orientation of leach leaf element in the 
canopy. This information nust be provided qontlnuously throughout the 
day. In order to accurately estimate total canopy performance they 
eU,so require the agei, the developmental history and the current 
nutritional status of each leaf element. All this can be provided in 
a model, but at considerable expense. 

In addition to the coaplexity involved, these static leaf element 
BOdels present tlie crop modeler with three otter difficulties. Sirst, 
inane of them has ever been validated. The best that has been done is 
to con^)are th«n with weekly dry natter accunulation data - which is 
somewhat analogous to using a calendar rather tliem a stqo watch to 
meewsure the pulse rate of a heart patient. Secondly, they do not cor- 
rectly account for respiration. They simply assume that some fixed 
fraction of photosynthate is consumed in respiration. This becomes a 
fatal error in the attenpt to use these static models in a dynamic 
form since respiration is a function of quantity of biomass. Finally, 
they assune a horizontally uniform distribution of leaves which is nob 
appropriate in a row crop. 

With effort all of these difficulities could have been overcome, 
but the result w^ld, at best, have been a rather inconsistent patch 
job. We chose instead to take a more empirical approach, treating the 
entire plant canopy as the photosynthetic element. There is abundant 
precedent for this in the literature (Baker, eh.al,, 1979al, and, it 
leads irore directly and mote precisely to the quantity of dry matter 
produced by the crop. It depends, however, on the availability of a 
set of canopy photoSynthesis-respiration data in a crop of known bio- 
mass. 

A detailed flew chart of PNET is presented on pages 17 and 18, 

The model does not contain a mechanism for the calculation of leaf 
water potential from environmental inputs, ard so it (PSIL) is simply 
set equal to five times the water potential in the rooted portion of 
the soil profile. The next several statements, dewn to line 10, 
oonpute a water stress reduction factor for photosynthesis. The reduc- 
tion factor (PTSRED) is a linear function of leaf water potential 
taken directly from Figure 1 of Lawlor (1976) . We believe that the 
data base for PTSRED must be oonfitmed in experiments at various 
stages of development in crops grown under natural light and with var- 
ious patterns of water stress develq^nt. 

Next, canopy photosynthesis, on a ground area basis, is calculat- 
ed. In 1977, Baker, Parsons, Phene, I,ambert and McKinion (unpublished) 
collected a set of canqpy aparent photosynthesis and respiration data 
in the winter winter wheat cultivar, Soout, under abundant soil 
moisture and fertility conditions. Measurements were niade at several 
stages of development in the crop. The measuranents were made in SPAR 
units (Phene et.al., 1978) via the closed system technique, teparent 
photosynthesis was recorded continuously, throughout the season, at 
fifteen minute intervals, along with incident PAR, canopy light 
interception and canopy air tenperature. Respiratiem was measured in 
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Uif w«e«r pocancial if to ba Ctva 
elnaa tha avara|a toll watar poeanelal. 


Photoaynehaait ra^uctlon fi^ctor toe 
■oiatura ttrata It Inlfclalltad at larot 


If laaf vatar potantial ta laaa chan 
•1.6 bart than PTSRED rantaina ac taro. 


Tha raductlon factor la a llnaar function 
of tha laaf watar poeantlal. 


If chit raductlon factor la eateulaead 
ba iraatar chan ona than It la tat to on*. 


Potantial canopy phototynthaala la a 
function of tolar radiation. 


Phototynthaala reduction factor for 
nltropan ttrata it inieiaiiiad at on*. 


If laaf concentration la laaa than ona 
pareant, than tha phototynthaala raduc* 
cion factor dua to nitrogan acraaa lb 
tat CO b* 100 clmaa ch* loaf coneantra* 
tlon of nicrogan. 


Calculate the fraction of plant walght 
which It ttarch. 


Caiculaca phototynchatia raductlon factor 
for ttarch laaf loading feedback at a 
function of laaf carbohydrate level. 
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CrM« phoeoiyneh«alt la a funeclon of 
Inearcapead lt|he, plane populaeton^ 
and eh* ealculaead radueelon faceora. 


Kaaplraeion loaa ^a ealeulaesd aa a 
fuRceion of eaapavaeur* and plane w*tghc> 


If eh* raapiraelon loaa la ealoulaeod eo 
b* l*aa than i*ro eh*n le la a*e eo aaeo. 


Kae phoeoaynehaala la a*e eo ba groaa 
phocoaynehaaln mlnua caaplraelon loaa 
•ulelpllad by a faceor eo convaee graa* 
of CO2 Co grana of CH2O. 


If nae phoeoaynehaala la laaa ehan eha 
alnlwtai aasune , than IC la aaC Co eha 
■inlMi (aeblerarlly aaalgnad) valua/ 


Mae phoeoaynehaala 1 | eoealad for eha 

aaaaoRi 
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the Bomu SPAR cropa as m$ photoeynthesia. The reapliration data are 
presented in Figure 2, Two techniques were used in these 
measurements. In the first, (Figure 2a) the chamber was quickly 
darkened after a pericx! of photosynthesis, In the second, (Figure 2b) 
the diamber was k^t dark for a period of about 18 hours prior to and 
during the respiration measurements. Rate of lncr«fsaae in canopy CX), 
was measured after 25 to 30 minutes’ accomodation to a hew tenfieratare 
level. Unlike the results with cotton, (B^er et,al., we found 
no difference in rate of canqpy respiration leather preceded by a 
period of rapid photosynthesis or not. The senesced SPAR C data 
points were deleted. The light and dark data sets were combined and 
fitted bo provide the respiration function in the code. This technique 
may be criticized since it is, in fact, a respiration measurement made 
in the dark being used to represent respiration in the light, c.f. 
Civjllet and Ogren (1975 ) . Although we believe any quantitative error 
will be relatively small, this estimate of the respiratory loss in the 
light will probably be on the high side. Canvin (1970) presents 
evidence that dark respiration may be reduced; in the presence of 
light. There af^ared bo be no change in photosynthetic efficiency 
during the season until the beginning of senescence. The data were 
collected on crops in three SPAR units naintained at three tenperature 
regimes (c.f. Table 1). So, the crops nsitured at different rates. 

The effect of senescence on canopy pliotosynthiissis is shown in Figure 
3* Thera was no significant senescence effect in chamber B through 
days 114, 116, and 117, nor was any senescence in A noticeable through 
days 126, 127, and 128. Appropriate dark respiration values from the 
above msasurements were added to these (fifteen minute) apparent 
photosynthesis values, and, the data were pooled and fitted to obtain 
a composite ^opy light response curve with 258 15-minute data 
points. An R^ Vsdue of 0.09 was obtained. This curve was used, with 
15-mlnute average solar radiation data throughout the daylight periods 
in 36 representative days over the season to produce the daily total 
data presented in Figure 4. The data range from completely clear days 
to completely and heavily overcast days. The equation for this curve 
is used to calculate daily phohosynthate production (PSTAND) from 
daily total solar radiation in Wi^ER WHEAT, Next, a photosynthesis 
reduction factor for nitrogen stress is calculated. At the time of 
the development of this npdel, no data base for this was available bo 
us, and so, we arbitrarily reduce photosynthesis for leaf nitrogen 
concentrations below one percent by the leaf concentration multiplied 
by 100. In future versions of WINTER WHEAT an ejqperimental data base 
for this will be developed. 

The following section of PNET develops a photosynthesis reduction 
factor for starch buildup in the leaves. Again, no data base for this 
in winter wheat was available to us. Therefore the data and logic of 
Holt, et.al. (1975) in their alfalfa model, SiMEDf are used. 

Next, the photosynthate yield (PSTAND) is reduced by the above re- 
duction factors, cid justed for canopy light interception (INT), and put 
on a per plemt basis . 

In the next several statements, canopy respiration is calculated. 

Net photosynthesis, PN, is calculated as the difference between 
photosynthesis and respiration multiplied by a factor to convert the 


19 


mg C0,/g/hr(m9/gdwt/hr| mg CO,/g /hr 


Figure 2 


ORIGINAL PAQI II 
OF POOR QUALITY 


SPAR SPAR B XXX SPAR C - 




It 




SPAR A««« SPAR B XXX SPARC— 



B 


Canopy respiration rates (in rag* C02/gvam dry plant weight/hour) 
vs. air temperature immediately after exposure to bright light (A) 
and after exposure to long periods of darkness (B). 
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Table 1. SPAR Unit Teropepature Control Program. 


Julian Day Average SPAR Air Temperature *C 

SPAR UNIT 



A 

B 

C 

6-12 

2.7 

5.3 

9,8 

13-19 

4.6 

7.2 

10,1 

20-26 

4.9 

7.1 

12.8 

27-33 

4.6 

9.7 

12.8 

34-40 

7.2 

10.2 

15.6 

41-47 

7.2 

12.8 

18,3 

48-54 

7,2 • 

12.9 

18,4 

55-61 

10.0 

15.5 

21.1 

62-68 

10.0 

15,6 

23.9 

69-75 

10,1 

18.0 

23,5 

76-82 

12.6 

18.0 

25,8 

83-39 

13,1 

18.3 

25,8 

90-96 

15,9 

21.2 

29.3 

97-103 

16.0 

23.9 

29.4 

104-110 

18.2 

23.9 

29.3 

111-117 

18.2 

23.8 

28.8 

118-124 

17.9 

24.1 

29.3 

125-131 

19.0 

23.8 

28.7 

132-138 

18.0 

23.9 

27.4* 

129-145 

16.8 

23.8 


146-152 

17.2 

23.9 


153-159 

17.1 

23.8 



*Terminated after day 137 
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INCOMING RADIATION (ly/min) 



Rj (ly/dqyl 

Figure 4, Daily total canopy photosynthesis vs. daily total solar radiation 
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OD, to CH^O. It represents dry matter production per plant per 

day. A very small minimum limit ensures some in the very eeurly 

sealing stages . 

Finally, the day's increment oC net photosynthate production is 
accunulated tor diagnostic purposes in the materials balance. 

GROWTH 

This isubroutine calculates potent i«il and actual daily incranents 
of growth of each of the organs on the plant. The data b^e is mainly 
from papers by Sofield et.al. (1974) and Friend et.al. (1962). Root 
growth is handled in RUTGRO, a RHIZOS subroutine, which is called 
twice from CS^CWTH. In RUTGRO the soil water potential in those parts 
of the soil profile containing roots is used along with climate inforwr 
ation bo calculate day time and night time (WSTRSD AND WSTRSN) water 
stress •parameters referred to below. 

Growth strategy is as follows; 

a) the plant is inventoried and a potential growth rate for each 
of the organs is calculated as a function of tenperature, assuming no 
shortage of photosynthate or nitrogen. A total carbohydrate demand 
(CD) is calculated as the sum of the potential growth increments of 
all the plant organs. Plant attributes used in this calculation in- 
clude organ weights and ages (since initiation). When a better organ 
data base is available, potential growth will be calculated for day 
and night time periods separately using tenperature and water stress 
inputs appropriate to those time periods. 

b) after the calculation of potential carbohydrate requirements, 
the NITRO subroutine is called from GROWTH. NITRO will be described 
in detail later. Its function is to estimate the nitrogen required to 
assimilate the amount of carbon just estimated for each of the organs. 
These nitrogiai requirements are sumned for the vegetative parts and 
the fruiting parts and the sums are used in the denominators of 
nitrogei'j supply/demand ratios to estimate the maximum fractions of the 
carbohydrate uptake potentials biat can actually be assimilated, 
considering the nitrogen limitations. This, then, is a reduced or 
refined estimate of potential organ growth increments. 

c) a Ccirbohydrate supply/demand ratio is calculated as follows; 

CPOOL = PN + RESC 
CSTRES = CPOOL/CD 

where CPOOL is the total available pool of carbohydrate from today's 
incranent of photosynthate production, plus reserve carbon carried in 
from earlier days, and CSTRES is the carbohydrate supply; demand ratio. 

d) actucd growth of each organ on the plant, then, is calculated 
as the product of potential growth nultiplied by CSTOES. This parti- 
tions photosynthate to each organ on the plant in proportion to its 
contribution to total demand, except that grain will receive their 
full requirement first if sufficient carbohydrate is available for 
grain growth. Anything beyond that is partitioned to the vegetative 
parts , including roots . 

®OWTH is flowcharted on pages 25 to 30. The water stress terms. 
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CROVfTH Subroutine 



,,WTT le cho jfactor to convart laaf 
araa in to waight in graaa. 


Oataralna tha uatar atraaa factor for 
raduetlon of potantial growth. 


i)o for aU tl^a acoaa on thi plant. 


Znitiallta the potantial changa in 
■taa waight for aach itaa. (Kaading 
Staga) 

Initializa tha potantial changa in 
gluaa waight for aach ataa. (Heading 

Staga) 

Tha potantial change in grain waight 
is a function of taaparatura. (Heading 

Staga) 


If the potantial change in grain waight 
ia calculated to be laas than taro, 
than sat it to taro. 


Sat potentials for scam, glume, and 
grain growth prior to jointing. 


Sat potentials for stem^ glume, and 
grain growth during Jointing. 


Sat potentials for scam, glume and 
grain growl'h during boot stage through 
anthaais. 


zero the accumulators for waight change 
pocenclala. 
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If eh«r« art no aeoai^ chan got 
out of cha growth routina. 


Do for aach atom on tho planti 


If a ataa haa no laava% than aklp 
loaf growth routina. 


Do for aach loaf on tho atom. 


Potahtlal change in loaf area la a 
function of tamparatura with nax 
potontial change occurlng at 20*C. 
Tha ralatlonahlp la linear with no 
potontial growth below 0*C or above 
40*C. 


Tha average temparatura la added to 
tha teaparatura accumulator Cor aach 
leaf (accumulated tiiinca the leaf waa 
Initiated) . 


Determlna cha age of each leaf. 

Calculate the avarega temparatura of 
each leaf alnce lea initiation. 








GROWTH Continued 
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Fotonelal chang* In loaf viaighe la a 
function of potarttial change in 14af 
aree, area to weight factov, 
water atreaa factor, and an input growth 
coefficient. 

Calculate potential change in leaf 
weight for the plane (total). 


Calculate potential change in a^‘,ea 
weight for the plenh. (total) . 


Calculate poeentiel change in gluaw 
weight for the plant (total) . 


Calculate potential change in grain 
weight for the plane (total). 


Cell KUTGRO aubroutine to get potential 
change In root weight. 

Convert potential change In root weight 
to be in unite of grama per plant. 


Total, potential change in weight of all 
plant part! axcapt grain to determine 
carbohydrate demand for theta pacta. 

Initalize the carbohydrate itreea factora 
at 1 (no atreaa). 


Calculate total available eacbohydeata 
aa being reaerve from lCAT-1 plua the 
photoaynthaca produced on IDAY. 

Subtract carbohydrate needed for maximum 
potential grain growth from the carbohy- 
drate available. 

If no carbohydratp remaina <’rr growth of 
other plant parts, sat the reaetrve carboh- 
ydrate variable vo zero, the carbohydrate 
atreaa factor for yegetatlva parta to zero 
and recalculate the carbohydrate atreaa 
factor for grain growth baaed upon 
available carbohydrate. 
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r 

RESC - RESC - CD 





^^[^SC .CEi 0, 


False 


Subtract the eirbohydrata naadad tor 
growth of plane parta other than grain 
froa availabla cacbohydreta. 

If tba availabla carbohydrata ia inaufficlane 
to aaat daaand, chan uaa cha raaaining 
carbohydrata for growth, ealeulata a eacbohy* 
drata atraaa factor for vagatatlya growth 
and aat tha carbohydrata raaarva to laro. 



Trua 

CSTItSV ■ (RESC C0)/Cir] 


RESC ■ 0. 


COMTimjE 


CAU NITRO 


LEATHT • 0. 
STEMHT - 0. 
CIUHMT - 0. 
GRANHT - 0. 
mac * 0 . 




Falsa 

K - LEAF (I) 



DO 320 >1, K 


AREA - AREA -( 
WTF * CS7R 

PDWL (t, J)/ ^ 
SV * NV 

1 ■ - -- 

lEAFW (I,J) - 
+ PDWL <I, J) 

LEAFW (I,J) 
CSTRSV * NV 


XIRAC - XIRAC 
* CSTRSV * 

+ PDWL (I,J) 
(l.-NV) 


0 


Call chQ NITRO lubrouclna Co allocata nltrogan 
for growth. 

Sat tha variablaa uaad to total tha 
waight for tha laavaa, ataaa, gluaiaa, and 
grain on tha plant to taro. Zaro tha 
varlabla uaad to accuamlaca tha axtra 
carbohydrata. 


Do for all cha aeaRia on thia plant. 



Foe aach laaf on atom I: 


i,f chara is a pOcantlal for changa in laaf 
ualght; 


datarnina change In araa of laaf j on atam 
I and add to accumulator of total laaf araa for 
plant. 

Datarmlna tha waight of laaf J on atam I. 


Accumulata cha axtra carbohydrata which was 
naaded for growth but was not uaad bacausa 
of nltrogan stress. 
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AecuMlaC* Ch« w«l|hc of Uavat on plane. 


Dnearwtna vntghe of aean X by adding 
ehanga in ieam iMlghe eo ehf accuMUlaeor. 


Aecuaulata eh* axtra ciirbohydraca which 
waa haadad for ftaa growth but; not 
uaad bacauaa of nierogan aeraaa. 

AccuaHilati cha eoLeal ttfaighe of all acama 
on plane. 


Daeamina waight of glumaa on aeam X by 
adding ehanga in glv4.» walghe eo eha 
accuaiulaCor. 

Aceuaiulaca eha axeca carbohydraea which 
waa naadad for gluoM groweh bue noe 
uaad bacauaa of nierogan aeraaai, 

AeciaBuliba tha eotai walghe of all gluaiaa 
on plane. 

Daeanilna eha walghe of grain of aeaxt I 
by adding grain waighc to eha accuaulaeor. 


Aecuaulaea eha axeta carbohydraea which 
waa naadad for grain groweh bue noe 
uaad bacauaa of nierogan aeraaa. 

AccuBiulaea eha eotal walghe of all grain 
on eha plane. 


Daearmina eha anounc of carbohydraea going 
" to eha roota of eha plane. 

Accuanilaea eha axera carbohydraea which was 
allocaead for rooe growth, bue noe 
uaad bacauaa of nierogan aeraaa. 


Call eha RUTChO aubroutina to grow tha 
rooea. 

Tha axera x'crbohydraea la addad eo 
raaarva car.'ohydraea. 


Total plane walghe la waight of indivi- 
dual plane parea plua tha raaarva carboh- 
ydraea which ia mainly aeorad in eha 

laavaa . 
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Vagaeativt valghc is pUnt wat|he 
■inua t'^in wailhit 


XnltlaUsa eh* variabla which la uaad 
CO atoL* eha walghc at eha largaae laaf 
on eha plane. 

Do for all eha aeana on eha plane. 


Do for all eha laavaa on aeon I, 


If eha Walghc of laaf J on aeon I ii nora 
ehan eha naxlnuai wolghe of any loaf eo 
chla poln^ ehan aae eha naxtnun laaf 
walghc eo b* eha walghc of laaf J on 

scan X. 


Uao maximum laaf walghc eo doearnlno 
maximum loaf langeh. 


Daeormlna laaf araa Indox for eha 
plane. 
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defined in subroutine RUTGRQ/ for daytiine and nighttime, awv3i, day and 
night average tetqperatures are brought in from NMN. 

Referring bo the flow charts ort page 25, the first staiemant de- 
fines a specific ieaf weight term from unpublished data of {^ka. The 
second statement forms a water stress factor from witer stress data 
(WSTOSO and WSTRSS) data brought in frpm RUTGRO Via MAIN. These data 
represent the fraction of the day and night time periods during which 
the leaf water potential is estiniated to be above -7 bars. The ranain- 
ing statements on page 25 calculate or define the potential dry matter 
accunulation incranents in the stems, glumes and grain. The values for 
stems and glumes have been chosen arbitrarily. The values for the 
grain are taken from Sofield et.al. (1974). These are first defined 
for the beading stage. Then, they are successively defined for the 
jointing, booting and anthesis (plus 4 days) stages. 

The statet\^ts on page 26 and down to statement 120 on page 27 de- 
fine the potential growth increment of each leaf on each stem as func- 
tions of tatperature and water stress. The data base, both for leaf 
gro^h rate and the length of the leaf growth period is froiti Eriend 
et.^. (1962). They did not record leaf growth per se. The taipera- 
ture responses represent total ^lbove ground vegetative growth rates. 
Their experiments were done with Marquis wheat ( Triticum 
aestivum ) under artificial light (up to a maximum of 2500 f.c.), and 
their data e'^nd only to 30 G.. We believe that values derived from 
this data set may be low representations of "potentiel”, i.e. not 
limited by carbohydrate supply, growth. Certainly these data need to 
be confirmed in further (experiments. However, we have used the Friend 
et.al. data only bp construct the shape of a tenperature response. 
Actucil amounts of leaf growth appecir to be reasonable. First, leaf 
area growth is calculated. Then, the length of the leaf growth period 
is Ccilculated as a function of running (since leaf initiation) average 
tenperature. Finally, a potential leaf weight increment is calculated 
from the potential area growth incrarent, the specific leaf weight 
factor and the water stress reduction factor^ These potential leaf 
growth incratents are then accumulated. 

Next potential growth increments for stems, giumes and grain are 
adjusted for water stress and accumulated. Then, (middle of page 27) 
RUTGRO is called, where the potential change in root weight in each of 
the RHIZOS cells is conputed as a function of soil tenperature and ac- 
cumulated. 

This potential total root growtli increment is added to the total 
of growth increments for stems, leaves, and glumes bo produce a totail 
carbohydrate demand (CD) for vegetative growth. Then, the carbohy- 
drate pool is calculated as the sum of tray's photosynthate produc- 
tion plus resexves carried over from yesterday. 

Next, the supply ^demand ratio for grain growth is calculated. 

The following logic allows carbohydrate shortage to terminate vegeta- 
tive growth ent^ely in favor of grain growth. First, the resexrve 
pool is decraiented by the amount needed for grain growth. If this 
oonpletely depletes the reserves, then, reserves are set to zero, the 
supply :d(smand ratio for vegetative growth is zeroed, and, the 
supply :denand ratio for fruit growth is defined less than one. If, 
ha^ver, reserves are not depleted by grain growth, they aure 
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decrementeci by the amount needed for vegetative growth. If they are 
stU3f not depleted, full vegetative growth occurs. If they are 
depleted, a supplytdemand ratio for vegetative growth less than one is 
calculated i 

Next, NITRO is called and in an an 2 dogous way, nitrogen 
supply iciemand ratios for grain and vegetative growth are calculated. 

After return from NI^O, (middle of page 28 through page 29) 
actued dry matter growth of each organ on the plant in calculated, in 
each case, three steps are taken. First, the new organ size is 
defined as the obi value plus today’s increment, which is to the 

potential growth increment multiplied by the supply :danand ratios for 
carbohydrate and, nitrogen. Next, if nitrogen was limiting, some carbo- 
hydrate is left over, (3CIRAC). This is accuRulated and a^ed to re- 
serve. Finally, the total v^ights of the various categories of organs 
are accuirulated. 

After RUTGRO is called for the actued incrementing of root dry 
natter, total plant weight and vegetative weight are calculated. Maxi- 
num leaf length is calculated for use in the estimation of canopy 
ground oover (lin?), and XAI is calculated. 

RUTGRO 

This subroutine calculates potential and actual dry matter in the 
veurious parts of the root system. It also calculates water stress par- 
ameters which are used in GROWTH to adjust potential growth of above 
ground plant parts. 

A more detailed description of this subroutine is presented by 
Lambert and Baker (1982) to their discussion of RHIZOS. The parts 
directly affecting above ground processes will be outlined here for 
readability of the present ^Uscussion of WINTfR WHEAT as a whole. 

Flow charts are presented on, pages 33-44. 

The water stress paramiters (WSTOSD and WBTRSN) are calculated 
first and will therefore be presented first in this discussion. 

Boyer (1970) presents data showing an abrupt cessation to leaf 
growth in soybean, sunflower and corn as leaf water potential falls 
from about -3 bars (full turgor). The exact cutoff varies with 
species and we presune it varies with conditioning. The plants ap- 
proach zero enlargement asynptotically, reaching zero at or before 
-12 bairs leaf water potential. Baker et, al. (1982) have chosen thres- 
holds ranging from -3 to ■’12 bars and found that a -7 beur threshold 
works best for estimating growth in cotton. This analysis has yet to 
be repeated for Winter wheat. 

Model strategy is to assume that above -7 bars leaf water poten- 
tial there is no restriction to growth of above ground plant parts and 
below that threshold no growth occurs , since the asyrrptote is ap- 
proached sharply in Boyer's data. A regression model expressing 
cotton leaf water potential (PSIL) as a function of soil water 
potential (PSIS), net radiation (ro)) and temperature (TA), v^ere water 
potentials are in bars, tenperature is in Celsius, and net radiation 
is in watts/m^ was used to calculate PSIL values at ten minute 
intervals for all oombinations of the weather and soil water potential 
conditions in Table 2. Daily time courses of a typical data set are 
given in Figure 5 eilong with the net radiation and air tenperature 
values used. 
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ORlQINAl PAGE S3 

OF POOR QUALITt 

RUtCMO Subrouetn« 


t!xt, , 


40 



DO 1 KOLO>fl<«l,l«| 


DWRT(Um,K0LUHN)< 
>TVr<UnR,KOL.UHN,l}> 
RTVr(UYER,KOLUHN,2} 


Fill* 



PS INAX«rS IS( UYER , KOLUHM ) 


efiWrNlift 


CALNAX- 1 980 . 7»PS IMAX*( 79 7 . 58» 
PSIHAX*(18L.18UPS1MAX«10.9619)). 

CAUVG* 1980 . 7+PS IAVC*( 79 7 . 58 * 
?SlAVCta81.18UPSIAVG*10.96l9)). 


0 


On eha •aeonS eiaa RUTGRO It ealUdi aaeh 
day skip eo aeaeaMnc 2> 


lnieiai,lia eha arrapa DWRT and ROOTSV 
aaeh day. 


Inielaliaa ehaaa variahlat. 


Travariet all tail ealla oeeupiad by 
rooet. 


Rooet eapabla of prowch In any toil call 

ara aaauaad to ba ehoaa in a|o data 1 

( Uaa chan 3 daya old) plua ehoaa in ago 
data 2i {bteween 3 and 12 dayt). 


ly rapaaeing thia coapariidh uvar all 
aoil ealla occupied bp rooCat eha aaKiiaua 
toil waear poeonelal in eha rooc-oceupiad 
ration vill bo found. Noea ehae FSIsiV'd) 
ia nagaeiva. 
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ORIGINAL PAGE IS 
KUTORO CMtinuw Qf POOR QUALITY 



Liniet ,OOH ,(.T. WITUO iLT. 1. 


Uniei .0001 .LT, WSTKSN .XT 1. 


Day Ungeh aa a frace/>on. 0-1. 
Night langth aa a fraction, 0-1. 
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ORIGINAL PAGE IS 
OF POOR QUALITY 
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STUN-O.OOOl 


STMM.GT.I 


STRSN'H. 


RUTGRO COACinutd 


ORIGINAl, PAQB !S 
OF POOR QUAUTY 


ROOTXP<*((‘0t2U086S>0,i016079 Sp«cifio root growth rat« within (011 ctll, 
*TSOL)'^AyLl*(‘>0> 2120863'^ dapandont on dayLangth, Uyar tanparatura, 

0.0l6079*TSNLi)*DAYL2 and wataf itraoa baaad on PSIHAX. 


ROOTXP.lt. PACK 


I Linie ROOTS? to an input ndniwia anount. 


ROOTXP-PACa 


CALL HIMP^D" 


Call tha RXMPEO aubroutinaf 


KR«KXL( LAYER) 


DO 37 KOLUNN-l,KR 


Do for all tha colunna containing roota. 


KPl^KOLU)«*l-(KOLUMN/NIC) 


KMl-KOLUW-Ud/KOLUMN) 


TEST-RTIMPD( UYER, KOLUW ) 


KST . LT . RT IMPD ( UYE R , KMU, 


E3T-RTIMPDUAYER.KM1 


reST.LT .RTIHPDC UYER, 


TEST«RTIMPD( LAYER, KP 1)1 
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ORIGINAL RAGS is 
OF POOR QUALITY 

lUTCRO Conelnu«4 



Sua i^eaneial root irowch <w«r th* 
•ncir* profilti 


37 

1 CONTINUE 1 

24 

1 CONTINUE f 


1 WSTRSO-<STRSoW^;trSD)/ 2 CalcuUta tha day and night watpr 


atraaa taraa# 

1 MSTRSN-(STR! 

5N+WSTRSW)/2 


SiDMlT9SFDWRT4'DtimT( U i~R , KOLUW ) 
*«OOTXP*RTPCT 


I RETURN I 

2 I OTNiiwuen 


1 RCCPwRCH 

20/SPDWRT 



OO 5 UYER-l.LR 




KR*KXL(UYER) 



5 


Root: froweh cbrraeeion factor if Ch« 
ratio of earbohydraca availabla for 
root growth to tha total potantial root 
growth in tha profila. 


Covara all (oil calla occupiad by 
roota. 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


s 


’’aO Coneinu«4 



0:3 


1 DO S 

L-l.NLR 




If crop it ihrao days old or laaa, no 
sHifeing at voces by ago clast is dona. 


If crop it laaa than 12 days old| no 
rooet ara shiftad froa ago class 2 ir eo 

aga clasa 3. 

Afear day 12) a Craeeion (RTP2) of eha 
rooet in aga class 2 it thifead ineo aga 
class ^ RTP2 is l/(12-3). 


Tha rooet addad eo aga clast 3 ara hart 
raaovad froa ago clast 2. 


Afear day 3, a trace ion (RTPl) of eha 
rooea in aga class 1 is shifcad ineo aga 
claSt 2. RTPl is 1/3. 


ThOirooes added to aga class 2 ara 
raaovad froa aga class 1. 


Tha aceual rooe waighe incraaaa in eha 
soil call. Noes ehae DWRT-RCH20. 

ThO'groweh origiiiaeing froa tsch call 
already occupied by rooet has now basn 
daearainad. Tha diraceion of ehae [groueh 
ause now ba daearainad. Groweh aay occur 
wiehin eha call iesalf, eo eha righe. eo 
eha lofC) or downward. 

Taaporary LR, for use laear. 

Nuabar of layers coneaining roots. 

Use of eha variables LDC. LDl, 

KRl, KLl, IRC, and VZ allow simplified 
prograaming SRWP and DWRT ; the 
alearnativa is may IF seaceaancs eo 
handle boundary qondieiont for root 
grpwch. "tayor down" coafficiane for use 
in SRMP aquae ions below. 

>G 1 .LE. L. LT. NL 
•0 1. ■ Mt 
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ORIGINAL PAGE IS 

OF POOR QUALITY 


RUTCllO Coneinuad 



Nuabar oi' "tajfar down" (balow) for uat in 
SRWF aquabiona balow. 

-L^l 1 .U. L .LI. NX. 

•L X. - NL 

Tha affacC of LDC and tol in eha SRW and 
aubaaquanC atacananea ia eo prohibit 
roota fron growini onto eha bottoa of tha 
root fona. 

Tha nunbar of coluana occupiad bjr roota 
in lajrar L. 

Covara all calla occupiad by roota. 


If rooc wtighc capable of growth is 
anal Ur than a thraahold, roots hava not 
travaraad tha aoil call and thus cannot 
axtand into adjacant calls. Growth 
occurs only within the call L.K. 










OF POOR QUAUTY 

RUTCRO Coneiauad 





SRWP-(l./PSrS(L.lO'**3 
IRC/PS IS(L,KR1)**3 
fU)C/PSIS(U)liK)**3 
»tC/PSI5(L.KtU^3 




Sua of waighcing factors to dcearaina 
rtlaciva amount of growth fron tha soil 
call in each of the four directions; 
Internal to the cell itself, leftward, 
downward, and rightward. Weighting 
factors based on water potential of 
considered cell. Approach is strietl/ a 
hypothesis. Mote that IRC, LDC, and LC 
are either 0 or G. 


•w 
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ORIGINAL PAf^u m 
OF POOR QUALITY 


MJTCXO Coneinuad 



To cha eurranc youn| root waighc in tha 
call Lf K la addad tha f^acelon of cha rooC 
growth frq« Cha call occurring «dchln tha 
call> 


To tha currant young root walghc la tha 
call Co tha lafe of call L, K la addad cha 
frai^tion of tha root growth occurring froa 
tha call L, K Into the lafthand call. Kota 
ehaij If K*it I>C"0 and cha boundary 
condition of no growth acroaa tha plana 
undiir tha row la aaclafladt 

To tha currant young root walghc In cha 
call) CO cha right of call L. K la addad Cha 
fraction of cha root growth occurring froa 
cha call L, K Into cha rlghthand call, 
doca chat If K"NK, |gC"0 and ch« boundary 
condition of no growth acroaa the plana 
undar cha naxC cow la aatlaflad. 

To cha currant young coot walghc In cha 
call balow call L, K la addad tha fraction 
of cha root growth occurring fron cha call 
L. K, into cha call balow. Nota that LDC"0 
or c! CO Includa gaotroplc of facta. If 
L"NL^ LDC*0 and Cha boundary condition of 
no growth acroaa cho boctow of the lowar 
boundary la aatlaflad. 

Th? natrlx la being traveraed by layer, 
frow left Co right. If the nunbar of 
toluana occupied by roota aquala Che total 
nunbar of colunna' In the plana. KRl. cannot 
be Incraaaad. Further. If the call being 
conaldared (L.K) la not Che rlghCiaoac cell 
which contalna roota In Che layer, no 
conalderation of Lncreaalng KRl> la given. 

Increiaanc the nunber of colunna occupied by 
roota In cha layer. Note Chat chla occura 
only whan growth In Che righCaoaC cell 
containing roota In the layer la being 
conaldared and current root weight capable 
of growth exceeda the Chreahold value. 

If the bottoii layer occupied by roota la 
not being conaidered. or all layara in the 
a lab are already occupied by roota. no 
Conaidaratien of Ineraaalng LR. the nunbar 
of layara occupied by roota, la given.* 
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ORIGINAL PAGE IS 
OF POOR 0”^' 


lUTGRO ConCinui4 



Do«nw«r<i growth fro* Cho lowoit U/cr 
oeeupiad by rooet ineraaoo* eh* luiiabar bf 
Uyaya occupiab by rooea. Huae b* 
poaaibla to Ineraiaant LR only one* wiehin 
eh* eravara* of eh* Uy*r> Sine* Ufe 
eoluiD (R"l) la gantrally eh* da*p**ei ie 
1* ehoa*n for conaidoraeion In daearalnlng 
whaehar to IncroMne LR> UT la eaaporary 
LR; Ut Is noe Incraaanead until eoaplae* 
aacrlx haa baan eravaraad ao ehae 
(ttNI.LR) eoaparlaon can conelnua 
aecuraeoly. 

Ineraianea nuabar of eoluaa* occuplad by 
rooea In t*iae will b* eh* lowaae layar 
oceuplad by roots during eh* n*xe ersvaraa 
of eh* aaerlx. 


All growth oeeura with soil eall L,K 
lesalf baeausa eh* ehraahold haa not baan 
axeaadad. 


Sae* eh* nuabar of layari oceuplad by 
roots eo LR or LR^l, dapandane on whathar 
a naw layar has baan ancarud by roots • 

tnlelallsas ehasa varlablas. 


Travarse all soil calls oceuplad by rooes. 


Root waighc eo b* consldarad during 
sloughing. For lack of baetar 
Inforsiaelon, hypothesis Is that roots 
baewaan 4 and 12 days old: ar* sloughabla. 
According to Huek(1976) If coeeon roots 
lly* to be 12 days old, Chay harden and 
liv* until deaeh causad by anvlronasnt or 
lack of energy for' rssplrselon. Root 
weight in ag* class 2 Is reduced by the 
fraction of SLF. SLF sac sCrlcely by 
gn**S« 

Weight of sloughed coots Is accuiaulaead 
ehroughouc Che season. 

toeal live cbot weight In each soil call 
due eo left row la eh* sua of the weight 
In each of the ehraa ag* classes. Total 
llv* root walghe In eh* profile due ro 
left row is eh* sua over all calls. 
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ORIGINAL PAGE m 
OF POOR QUALITY 


RUTCRO Coneinuad 


23 


26 

2S 


27 



Total livo root w«l|ht in tha profilla dua 
CO lafe row la tha au* oyar all calla. 


Root uBighe par plant* poprac ia tha 
avaraga lahgeh of row par plant. Tha 2 
accounca for both halvaa of tha root 
lyataa. 

Travaraa all aoU oalla oceupiad by rooca. 


Avaraga waear potantial in tha portion of 
tha profila oceupiad by roota will ba 
ealculacad balow. Howavcri no calla having 
a wacar potantial balow -IS bart ara to ba 
eonaidarad in davaloping tha avaraga. 

Cuaulaciva watar potaneial ovar calla 
oceupiad by roota and having a watar 
potantial graatar chan -IS bara. Hunbar of 
calla Maeing tha critaria and ehua 
includad in tha avaraga. 


If ni calla pmcC tha critaria. do not 
calc'llata tha avaraga waear poCanciat. 

IPIX allowa an accurata conpariton to xaro, 
Uaing incagar arithoMtic. 

Avaraga waear pocaneial ia eha cuMulaciya 
poeaneial diyidad by eha nuiabar of loil 
calla uaad in tha aecUioilation. 


If no calla ara abova -15 bara. aaauM eha 
avaraga waear potaneial ia -IS baya. 


Raeurn eo calling aubroucina. 


End of RUTGRO aubroucina. 
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ORIGINAL PAGE tS 
OF POOR QUALITY 


Table 2. Typical Daily PatCernt. 


RN maximums 

512 

345 

438 

470 

617 

86^ 


T maximums 

45 

40 

34 

32 

31 

27 


T minimums 

27 

24 

16 

21 

22 

16 


PSIS 

.1 

.2 

.4 

.5 

.6 

.7 .8 

.9 


1.0 

l.l 

1.2 

1,3 

1.4 

1.5 1.6 

1.7 


1.8 

1.9 

2.0 

5.0 

10. C 




*These net radiation maxiroums, temperature roaxiroums and temperature 
minimums are from the typical daily patterna used in the analysis. 
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Finally the number of minutes (+10) during the day and night 
time periods when leaf water potential exceeded -7 baurs was coniMted. 
This v®3tor was then fitted via a stepwise regression to comparable 
vectors for daily average net radiation ^ average tenperaturer and soil 
suction. Day and night time water stress terms VBTRSD and WSTOSN 
respectively, are calculated using the average soil suction in the 
rooted portion of the profile. While this data base and procedure are 
used in the present WINTER WHEAT model, wa emph^ that a data base 

from winter wheat, and, possibly a more mechanistic model would be 
more appropriate. 

In the calculation of potential root growth in each of the cells 
in the pHIZOS matrix, we assume exponential growth based on the mass 
of roots present in an age category oapable of growth. Good data on 
the effects of temperature and carbc^iydrate supply on root growth 
rates in winter wheat were not available, and so cotton data (QOSSYM, 
Baker et.al., 1982) have been used. Thus, the parameter is 

obtained by the same function as for young cotton bolls . Subsequent 
wo-’k by Whisler et.al., (1977) working with GOSSyM, in which they 
simulated the root growth measured in SPAR units by Phene et.al. 

(1978) showed that potential root growth is in fact an order of 
magnitude greater than potential boll growth on a weight of growing 
tissue basis. Other subsequent analyses by Fye et.al. (1982) have 
shown the ROOTXP term most be multiplied by factors of five or six to 
simulate field crops. Clearly this is an unacceptably crude guess as 
to the potential dry natter accretion rates in winter Wheat roots. 
Controlled environment research on winter wheat roots is indicated. 

After calculation of the ROOTXP term, the nodel calculates a pot- 
ential (PDMRT) root growth value for each oell from the root weight 
capable of growth (R3WICG) thus, 

PDV»T » RTWrCG*ROOTXP. 

Then, these are sumned over the whole root system to form a total 
(SpDWlT). 

Finally the model returns to RUTGRO from GROWTH where an incre- 
ment of c^u:bohydrate actually to be allotted to the root system is de- 
termined. This dry natter is partitioned to each part of the root sys- 
tem in proportion to its contribution to total demiu^d, 

RGCP « RGH20/SPDWRT. 

Finally the root growth correction factor (RGCF) is multiplied by the 
potential root growth berms (PDWRT) to give an increment of dry matter 
accunialation (DWRT) in each oell. 

NITRO 

This subroutine is called from GROWTH. With GROWTH it is in- 
volved in the partitioning of metabolites in the plant. The supply, 
on a particular day, consists of the increment of nitrogen brought in 
through the root system (UPTAKE) plus iTDbilizzdsle reserves. Three 
types of constants pertaining to NITRO are read in from the keyboard 
Wiien operating from a con^ter terminal. These are a nitrogen reserve 
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mobilizafcion factor (P2), ”K" factors representing the minimum percent- 
age of tissue dry matter ocpirring as nitrogen after all reserves have 

withdrawn, and “J" factors representing the miniiinum nitrogen con- 
centration of new dry matter added to organs . P2 is arbitrarily set 
at 0»5. UsualXy ”K" factors for leaves, stems, roots and glumes are 
edl set at 0.01, and all factors for leaves, stems, roots, glumes 

euv3 grain axe set at 0.03. Obviously, these values are arbitrarily 
chosen ard need to be verified; experimentally. 

Nll’BO is flow i;Xiarted on pagfes 49-51. Organ weights and nitroi^en 
contents are brought in. Also brought in (from OWWIH) are potential I 
growth increments. The nitrogen supply tdemand ratios tare initialized, 
and, reserves are calculated as the difference between the tissue nit- 
rogen content and tlie content it could go down to if all reserves ware 
withdrawn. Reserves in the various classes of organs are adUed to ^t 
a total reserve (RESN), The pool of available nitrogen (NPOOL) is de- 
fined as the sum of the reserve plus today's increment of uptake. 

Next, The nitrogen required for new growth in each class of organs is 
calculated as the product of the minimum necessary concentration multi- 
plied by the carbohydrate limited potential growth increment, and, a 
total nitrogen requirement (REQN + GRANRl) is calculated. If the nitro- 
gen required for growth of all organs is greater than the pool, stress 
factors ar& calculated as follows; if tlie pool is large enough for 
full ^ain growth, the vegetative growth stress factor is defined as 
the difference between the total pool and the gr ain growth 
requirement, all divided by the vegetative growth requirement, and the 
stress term for fruit growth (NF) remains one. If, however, the grain 
growth requirement is greater than the pool, NF is defined as the pool 
divided by the grain requirement, and W is set to zero. 

Next, the nitrogen contents of each of the cleisses of organs is 
updated and a total plant nitrogen content is calculated. If mote nit- 
rogen was taken up than used in structural growth, the extra N is 
stored in the various vegetative structures in proportion to their 
fraction of the total vegetative dry weight. If there was a deficit 
of nitrogen (required over what was taken Up), the deficit amount is 
withdrawn from reserves (negative addition of XIRAN). 

Finally, the leaf nitrogen concentration is calculated for use in 
MORPH. 

MORPH 

Oliis subroutine simulates plant morphogenesis. It handles system 
timing and the abortion of tillers and_ fruit in response to physiologi- 
cal stresses. It records, daily, the census of organs on the plant 
euid their naturity status. MCX^H is flowcharted on pages 52-64. The 
timing of' discrete morphological events is based on the accunulation 
of heat units (ACCDBG) defined as centigrade degree days above zero. 

The following are the morphological event (heat unit) criteria; begin 
tillering (100 ) ; begin head differentiation ( 315 ) ; begin jointing 
(750); begin booting (1090); begin heading (1200) and, anthesis 
(130Q). The data b^e for these heat units is from experiments by 
Baker et.al., (1978b). Their experiments were done in SPAR units with 
Scout ( Triticum vulqeure ) winter wheat. The data are pr^ented in 
Figure 6. These data describe the phenology of three crops maintained 
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Nmo Subrouetn* ORIGINAL pmt m 



OF POOR QUALITY 

Hitrogtii ^•eeov it tnUlaUitd «t 

I (No 

NltrogoA ibrtii foeeor for vogocaelvo 
growth la Iflltiallaad at 1« 

NUrogan atratt factor for fruit growth 
ia initiaiiaad at !• 

Tha nitrogaii raaarvaa for aath plane 
part (laavoa» acaaa, rootai gluataa) ara 
ealculatod aa a function of total nitrogan 
in aach partf miniaua fraction of tha 
waighe of aach part that la nitrogani 
total waight of aach parti and an 
availiabilitp factor, 


If laaf raaav'yaa arc calculatad to 
bo laaa than tyVK, than thay ara aae 
to laro, 


tf a tan raaarvaa ara calculatad 
to ba laaa than caroi than thay ara 
■at to aaro. 


If root raaarvaa ara calculatad 
ba laaa than earn than thay ara tat 
to laro. 


If gluaM raaarvaa ara calculatad 
to ba laaa than aaro, than thay ara aat 
to caro. 


Find tha total nitrogen raaarva for tha 
plane. 


Tha nitrogan available for todays growth 
ia NPOOC. 


Calculate the nitrogan required for 
now growth in aach elaaa of vagatative 
organa aa a function of the mi/^iiaum H 
toncantration aaaociatad with actively 
growing eiaaua, tha maximum potantial 
growth, and tha vegetativa carbohydrata 
atxata factor. 
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H17K0 Conelnu«4 


CMNU - JCl * SPOdttl * CSTRSr 


MQN ■ UAIKl + 3TCMRI ♦ 
HOOTIll + Oiwill 


r«quir«d for irain frovch !■ • 
fuitetion of ainiaua H don(«ncraeioni 
MKiwM pocaoctat growehf and carboh^draN 
acraaa faecor for fruitt 

Find total nitrogan raqulrad for nav 
■roHth of vagatatiya parta. 


ON ■¥ dUNRl .UE. 


It tha nitfogan raquirad for growth ta 
graatar than tha avallabla nitrogan> than 
oaleuUta tha atraaa faetora, 


NSTUS ■ NIOOl/(RCqN -f qUMU) 


KNRl .GT> NPOqi 


Calculata tha nitrogan atraaa aa ratio 
of availabla nitrogan to nitrogan naadad 
for ■axi&un growth • 

If tha nitrogan raquirawant for uxlaiuai 
grain growth la laaa than or aqual to tha 
avallabla nitrogan than calculata a 
raductlon factor for vagatatlva growth* 


NV • (NWOL «- CRAHRD/REQM 


CEl 

[oD 



NT • NPOOL/GRANRl 





1 CONTINUE 1 


If tha nitrogan raculrad for. fflanlnum grain 
growth la graatar chan tha nitrogan avall< 
abla, than all tha avallabla nitrogan goaa 
to grain growth* and vagatativa growth 
la atoppad (NV«0). 


SLEAFN - SUEAFN + LEAFRl * W 
STEMN ■ STEMN STEMll * NV 
ROOTN - ROOTN + ROOTRl * NV 
CLUMN - GLUMN ■¥ GLUMll * NV 
CRANi - GRANN 4- GRANRl * NF 


Calculata tha total nitrogan to ba 
addad to aach of tha plant parta. 


PLTN - StEAFN + STEMN + 
ROOTN + CRANN + GLUMN 


Calculata total nitrogen for tha plant. 


[XTRAN ■ (SUPN03 4- PUNTN)- PLTN 


JCTRAN .LT. 0- 


Nitrogan to ba atorad in vagatatlva 
tlaauaa <thla may ba nagatlva) la tha 
dlffaranea batwaan that taken up and 
that allocatad for atcuetural growth. 
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ORIGfNAL PAGE (3 

OF POOR QUALITY Subroutln* 



See up Dtuny variabl* for >vars|« 
eaaparaturt. 


Ij avaraga eaiaparaeura is laaa ehon 
0 C, chan aae le eo 0°C. 


Add bha avaraga tanparaCura into cha 
caaparaeura accuaulacori 

Xf laaa chan lOOdagraaa has baan acep- 
fflulatad, ellloring has nob begun. Gp 
eo roublna bo chach for net, gacondar/ 
rooe, and/or loaves. 


If bha aeeuamlsead dagraat aro groabar 
bh^H 7S0» ehan beyond bha blllaring 
s<tag«i. 


Plant ia in bha eiUoring sbaga and bha 
verlabla TILLER La nab eo ba equal bo 
IDAY oh bha flrac day bhae bha aecumula- 
bod dagraaa goaa beyond 100. 


Tha firae day bhae eha aceumulabod dagraaa 
goaa beyond 31S la defined eo ba bha 
day of dlffaranelablon. 


Go bo roublna bo ehaeic for new aaepndary 
roobs and/or laavos. 


If eha accumulaead bamperabure la greater 
chan 750 and leas chan or equal Co 1090. 
Chan In Jolnclng stage, ochervlsa bayond 
Jointing. 
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MORPH Coneiauad 



page ^ 

OF POO^ 


On tha flrae day chat eha aceuaulacad 
CaaparaCu^a foaa bayond 750 acaa I 
(■alRaeaa‘\la aald eo ba|ln Jolnelnf. 


On eha day ataa 1 baglna Jointing tha 
varlfblaa STEMND t STEMBG (which mark 
eha iaae itam eo bagln jolnelng and 
eha naxe ataa eo Joint) ara lnltiallxad< 

Tha array NODE la inlelallaad on eha 
day eha Jolnelng baglna for team 1. 


Go to eha rouelna that chacka for 
addlelonat aaeondary rooea and laavaa. 


If tha accuiss^latad numbar of dagraaa 
la graatar than 1090 and laaa than 
or aqual to 1200 chan tha plant la In 
eha boot staga. 


Tha array BOOT la uaad to Indlcaca 
eha day chat a aCam baglna boot aCaga* 
Thla oceura for aeaa 1 on eha flrat 
day eha plant goaa Into tha booe aeaga. 


NSTMH which la Cha variable that kaapa 
up wieh eha numbar of aeama haadlng la 
Inleializadt 


Do for aach aCam on plane., on day 1 
of Boot aeaga. 
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ORIGINAL PAyL m 

OF POOR quality 


NOMH ConetnuM 



If eh« nudbtr of Joinei on • itoti It 

chan favon, tha atan will not; haad» 


If ehara ara aavan Jotnea ehan tha ataa 
la haadlng. 

Tha dlffaranca in dayt batwaah tlaa 
ataa 1 and ataa I bagan Jointing la 
caleuUeadi 

Tha daUjr for Jointing and boot la 

aaauaad to bo tha aaaa. 


Co to tha rouelna that ehacka for addi- 
tional iacondary roota and laavaa. 


Haad (1) la aat to IDAT on tha flrat 
daf tha plant raachaa tha haadlng 
ataga (aeeuwilatad dagraaa ara graatar 

than 1200). 


Tha dlffaranca batvaan tha haadlng of 
StEM 1 and STEM I la dafinad to ba tha 
aama aa that of JOIKT 1 and JOIMT I, . 
Thla dlffaranca dddad to tha Day Stan 
1 bagan heading glvaa tha Day haadlng 
baglha for tha othar ataau. 

Tha nuadvar of aplklata for each atan 
la Inltlallaad on tha flrat day of 
haadlng. 


Go to th«: haadlng routlna. 


Tha tanparatura la added to an aceunu- 
lator to ba uaad to datarnlna If aacondary 
roota ara to b a add ad to tha plant. 

Tha tlma batvaan aacondary roota la a 
function of tha avaraga tanparatura 
alnca tha Initiation of tha laat aaeond- 
ary toot. 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


Mntra Conelnuad 



The ainiaua ctM baewam eha Inlcla* 
eloa of lacondar;^ roota it aae eo ba 
2 daya. 


Zf PSZAVC la graatar than or aquaZ 'to 
•1 bar and thf eloa batwaan aaeondary 
root Initiation la anfflelont, than wa 
add a aaeondary root. 


Thai variable SROAY which danotaa tha 
tha day tha laat secondary coot waa 
Ihitlatad la aat to IDAY, 

Tha variable that accumulates the 
taaperatura since Intltlation of 
last secondary root la sat to saroi 

Tha variable that contains tha nuadiar 
of secondary roots 11 Increaanead. 


Tha variable APTM? contains tha aceum- 
ulatad tamparatura for each atom since 
Initlaelort of that staai. 

No leaves will be added to a aeasi which 
already had 6 leaves. 


ATZMP la the .'^ccuanilated tempera cure 
for each atem alnce it Initiated Ita 
laat leaf. . 

The time between Initiation of leaves 
la ealeulatad for each stem Indapandantly 
and It la a function of ATTMP. 

Tha tloa between Initiation of laayaa 
cannot be leas than 4 days. 
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HOItPK Concinuad 


POOR 



It inauffletane eioia haa paaaad tar 
Inielaeion of a naw laaf on aeam I 
than phaok tha naxc acam. 


Whan aufficlant tina haa paaaad, and a naw 
laaf on STEM I la IrilCtatad, than 'LLDAY <t) 
Cha varlabla whidh indlcataa tha day 
STEM I Initlatadi Ita laat laaf^ la aat 
to ISAY. 

Tha nuabar of laavaa of aeam Z la tncra- 
flwntad. 

” Tha day of Initiation for tha nav laaf 

la aat. 


Tha aeewlatad tanparatura alnea Inltla* 
tion of tha laat laaf la aat to 0. 


Tha aeeuaulatad taaiparatura of tha 
naw laaf la Inltlaliiad, 


If Jointing haa baguiv aklp to Jointing 
routlna; thara la no moca tlllarlng. 


If tlllarlng haa not baguti or If thara 
ara tan atama, than no haw tlllara will 
ba addad. 


Inltlallaa tha dumny J to ba tha currant 
nufflbar of atana. 


Each atam la eapabla of producing tlllara^ 
and TBT (tlma batwaan tlllara) la a 
function of tha avaraga tamparatura alnea 
Initiation of tha atam. 
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original PAOE iB 

MORFH coneinuad OF POOR QUALITY 



It eha cUm baewaan elllara la ealeulaead 
CO ba laaa chan 5 dayi, chan Ic la aat 
to ba 5 daya. 


Naw ataaa addad cannot laaka tha total 
nuadiar of ataaa ba graatar than tan. 


If a atan haa laaa than thraa laavaa, 

tha naxt tlllar will not ba lniclatad> 


Zf tha nunbar of daya alnca ataa Inltlaead 
a tlllar la laaa than tha raqulrad nuobar, 
than thla atam doaa not Initlata anothar 
tlllar. 


Each tlllar (or atan) can oroduca a 
naxlmuai of thraa' tillara. 


If ill tha raqulramanta ara aatlaflad, 
than a naw tlllar la Inltlatad for Stan I. 


Tha total numbar of atema la Incramanted. 


Thai numbar of laavea on tha naw atan la 
aat' to ba 1. 


Tha laaf Initiation varlabla for loaf 
ona of tha naw atam la aat to ba aqual to 
IDAY. 


Tha laaf walghc of tha laaf on tha naw 
atam la aat to zaro. 


Tha day tlllar I inltlataa a tlllar 
la markad. 
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JpW/G|/V4L IQ 

OF POOR 


HOUFK Continuad 



If ehara art laaa chan four acaaa 
on Cha plane, ehan eha naw eillar 
will noe ba abortad iaMdtataly. 


If eha avaraga aoll waear potantlal la 
laaa ehan •! ban, ehan abort eha naw 
el liar. 


If eha nlerogan eoncaneraeion of eha 
laavaa la laaa ehan 3% ehan abort eha 
naw eillar. 


If eha plant haa vagataclva 
earbohydrata atraaa ehan abore eha 
now eillar. Co eo 180 to tnleiallia 
eha yarlablaa aat up for ehla eillar. 
Do not ehaek for Inielaelon of aora 
naw elllora. 


If paae cha fir at day Of aprlng, chon 
chock for abortion of tlllara. 


If loaf wacar pocanelal la laaa ehan 
-20 bara and cha avaraga nuabar of 
aaeondary rooea par a tea la laaa ehan 
4 , chon abort a eillar. 


All Cha varlablaa chat parcaln eo eha 
aboreod eillar ara aae eo xaro. 







MOKPK ConeinuMl 


ORIGINAL PAGE IS 
OF POOR QUALITY 





I£ it it not tha day at dlf farantutlon • 
than raeurn eo MAIM. 


On eha day at dltfarantiaelon, eha 
nunbar of aptkalats par splka la tat 
to 22, 


A duaaiy variabla is calcutacad c6 ba 
a ratio of raaarva carbohydracas to 
tha tun of laaf waight and carbohydrata 
raaarvaa, 

A aacond dumny variabla ia aat aqual to 
10 timaa tha firat plua O.S, 


If eha aacond variabla ia gcaacar than 
I it ia aat aqual to 1. 


Tha number of apikalata par apika ia 
onileipliad by thia dummy variabla, If 
eha ratio DUMl ia equal to or graaear 
than 1,05, than thara will ba no raduc- 
eion in apikalac number. If ratio ia 
0. than apikalata numbar ia raducad by 
50%. 

Tha numbar of apikalata par apika ia 
raducad if eha laaf concaneration of 
nierogan ia balow ,04. Tha maximum 
reduction ia 307.. 
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MDUFK ConeinuadI 




13 

ruuK QUAUrr 



It Jointini bagan o»ra than IS 
daya pravloua to ZOAYi than raturn 
to mm. 


It tan ataaa Hava bagun Jointing^ 
than no aora ataaa can bagin Jointing* 


A duaay variable which lu a function 
at vatar attaaa la ealeulatad* 


A duaay variable which la a function 
of watar atraaa* vagatatlva carbohy* 
drata atraaa* and nitrogan atraaa la 
ealculatad . 

Tha nuabar of ataaa to begin jolneing 
on H)AY la aat to taro Initially* 


Yha nuad)ar of ataaa to bagin Jolneing 
on ISAY la dapandant upon tha duaaty 
variabla DUHl* 


It there la no nitrogan, carbohydrata 
or watar atraaa, than thraa ataaa bagin 
Jointing. 


Tha nuadiar of tha laat stem to bagin 
Jointing on lOAY ia satj 


Tha nuabar of tha laat atan to bagin 
Jointing can ba a aaxiaua of 10. 


\v’ 
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onmmu paqe is 

OF POOR QUAUTY 

MOtra Coneinuad 



Do for Mch otMi bitilnnlng Jointini 
eod«)r. 

It iCM ha* laaa than alx laavaa, it 
doaa not bagtn jointing* 


Tho nuBibar of eha laat ataa Co t)«gin 
jointing ia raaat to bo ono laaa chan 
ataa Z tinea tcaa Z haa laaa than alx 
laavat 


Sta« Z haa ona joint to alongata on 
ZOAY. 


Stax Z bagina jointing On ZDAY* 


Tha variable L danocaa the laat atooi 
to begin jointing pravloua to ZOAY. 


Zf iCMa begin jointing on ZDA^i chon 
the atax to bagln jointing on ZMY plua 
ona xuae 'bx'tac. 


Zf L ia equal to aarx than no ataxa 
bagan jointing pravioua to ZDAY tharafora 
raeurh. 


Zf L ia gvaatar than tan, than it ia aac 
to ten. 


Zf leaf water potential la laaa than 
•10 bara, than return to MAIN. 


Tha variabla for the nunbar of Jointa 
to alongata ia aac. 
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omoiNW- 

OF POOR QUA'-'*'' 


HOKPH Continual 



For eha icm eh« nua)i«r of Jofneo 
•loniacad i$ iner«Mne«4 by fiNQDC«, 


Thaca la a Maiiwa of aavan 
jolnea par acaai. 


Paturn to KAZNt 

Aftar h«*Alni roucina> 

If tha aecumlatad taaiparaeuca for eha 
plane la laaa chan 13Q0 dairaap than 
raeurn to tha MAIN propraai. 


iHa fifit day chA nccuaHilacad taaparacura 
baeoaaa 1300 la aat to ba tha baplnnlni 
of Anthaaia for ataa I, 


A factor to ba uaad for daaaleatlon of 
florata la Inlbtallaod at .XSi 


Tha dalay In Jolneing batwaan ataia 1 
and tha oehar atama, ta aaauaad to apply 
for anehaali aa wall. 

Tha array aat up for daaalcaeion la 
Inleialitad at aaro. 

Tha nuad>ar of florata par plant la aat 
to ba tha nuabar of aplklata par aplka 
einaa four. 
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HOKPH ConClnu«4 


ORIGINAL PAQS IS 
nc POOR OUALItV 





It iCM Has not iroaehod anchoaU nr it 
■ora than 9 daya ^ayondtChan |0 to and 
of looy . 


Nuatar of floraea on ataa Z to ba 
daaaleaead on IDAY ia a function of 
loaf watar potantial« 

If eha daaaleation rata ia laaa than 
aarO( chan aat it to aaro> 


If tha daaaieation rata ia aoro than 1, 

chan aat it to ona* 


Tha floraea diiiicacad on aeaa Z ara 
•ceuaiulacad during anthaaia* Only DFAC 
ara aligibla for daaaicacion aach day> 

On eha foureh day at anthaaia tha floraea 
ara auheracead oue. 


Tha daaaicaeion faceor ia uaad to 
datanina eha eoeal nunbar of floraea 
for Haad X thraa daya afear anthaaia 
bagan for Hoad 1 . (Floraea bacoma grain.) 


If eha eoeal nuabar of floraea par 
a|»ika ia graaear ehan aixeyt than ie 
ia aae eoaixey. 


If eha toeal numbar of floraea par apika 
la laaa than ean, ehan it la aae eoCan. 
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in three tenperature regimes. The temperature data for this 
experiment are presented in Table 1, Maturity^ (IT3P), and the 
termination of the simulation is determified as a linear function of 
running average tenperature from anthesis. The data base for time of 
grain maturity is from Sofield et.eiL. (1977). 

Referring to the flow charts beginning on page S3, if tillering 
has not yet b^n, the oonputer is directed to statement 100 (page 54) 
where secondary roots and leaves aire initiated. Heat units are accumu- 
laited from one secondeury root initiation event to the next. The time 
between secondary root events is a function of the running avarage tem- 
perature. The function is arbitrarily chosen, and needs to be con- 
firmed by further, controlled environment ejperiments. If sufficient 
time has elapsed, and, soil water potential is greater than -1 bzu: in 
the rooted portion of the soil, a secondary root is added. 

Next, running average temperatures for each stem and for each 
leaf are updated . Time intervals between new leaf initiation events 
are a function of running average temperature, with a minimum time of 
4 days. The data base for this terrperature-time interval relation- 
ship is from Figures 1 and 2 of Friend et.al. (1962, pl299). 

After this leaf initiation, if tillering has not begun, the conputer 
will default all further logic to the end of the subroutine. 

Referring again to page 52, if 315 heat units (flCCDEX;) liave accum- 
ulated, differentiation begins. If 750 heat units have accunulated, 
tillering ends, and jointing begins, and the conpu ter checks bo see if 
time for jointing (1090 heat units) has passed. If so, it checks to 
see if the time for lieading has arrived. The times of jointing, 
booting, heading, aithesis, and maturity of each of the stenns cire 
record^ separately. The time spread aiong tlie stems in booting, 
jointing and heading is maintained the same as that established in 
jointing . 

Secondary root development occurs through the tillering, jointing 
and booting periods. Each priiriary tiller is capable of producing more 
tillers (up to three each), if the primary tiller has at least three 
leaves. The time required to produce these secondary tillers is a func- 
tion of the running average temperature since the last (secondary til- 
ler) was initiated. This function (bottom of page 56) has been chosen 
arbitrarily. We note that in view of the fact that a tiller may be 
aborted very quickly after it is initiated, it is very difficult 
to measure initiation rates except under conditions not favoring 
abortion. A great need exists here for further controlled eivironment 
research characterizing the rates of tillering and tiller abortion in- 
dependently. When a new tiller is initiated, the leaf number associ- 
ated with it is initialized to 1. Leaf number is limited to six per 
stem. If, the plant has less than four primary tillers (top of page 
58), none will be aborted. However*, if more exist, a newly initiated 
tiller will be aborted if either soil water potential in the root zone 
is less than -1.0 bar, leaf nitrogen concentration is less than three 
percent, or if any carbohydrate stress exists. The tiller will also 
be aborted if, after spring green up, leaf water potential is below 
-20.0 bar or there are less than four secondary roots per tiller. 

Differentiation of adl lieads occurs at the same time (i.e. on the 
day of accunulation of 315 heat unKis), regardless of the age of the 
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tiller. The number of florets per spikelet is set at Variation 

ini kernel mmber occurs only via variation in the number of kpikelets 
per head, except that for the first three days after an thesis, florets 
nay be lost from a particular head through dessication. Spikelet num- 
ber may be reduced from a maximum of 22 per head either by Ccurbohy- 
drate or nitrogen shortage. Reductions up to 50 percent will occur in 
proportion to reserve carbohydrate levels below 6 percent of leaf dry 
weight. Additional reductions up to 50 percent will occur in propor- 
tion to leaf nitrogen concentrations below 4 percent. This approach 
to the calculation of kernel number may be criticized on several 
grounds. First, as Klepper (1980, pers. oonro.) has noted, differentia- 
tion of all heads does not occur at the same time. Each head is diff- 
erentiated wtien that tiller reaches the apprcpriate physiological age. 
Second, floret nuntier is not constcint among all spikelets. After the 
rachis is laid out, spikelet initiation begins about 35 percent of the 
way up the rachis and proceeds both up and down over a period of a 
month or so. During that time florots ate initiated from the primary 
floret in each spikelet outward. During this time ‘florets may be ab- 
orted due to physiological stresses, the younger being aborted first. 
Thus, the spikelets at the top and bottom of the head, typically, con- 
tain fewer florets. Finally, the data base for the abortion of 
florets in response to physiological stress is conpletely inadequate 
at present (although it can be developed via a routine and orderly ex- 
perimental effort) indicating the need for a conpletely different dif- 
ferentiation model, and for a set of experiments in which heads are 
mapped, in time, over a range of tenperatures , photosynthate and nitro- 
gen supply levels. 

At the top of page 61, all stems to be jointed must start 
jointing within 15 days of the first. An arbitrarily chosen oonposite 
variable which is a function of water stress, carbohydrate stress and 
nitrogen stress is used to determine whether one, two or three stems 
will begin jointing on the particular day. This logic is crude, but 
the model is not parties lairly sensitive to it , and it provides a means 
of spreading, in time, the jointing process in response bo factors of 
known iitportance. There will be a maximum of seven joints in the 
elongated stem. 

After 1300 heat units are accumalated, the first stem begins an- 
thesis. The remaining heads begin anthesis the same number of days 
later as occurred in jointing. For three days after the beginning of 
anthesis in a head, florets may be dessicated if the average (over the 
day) leaf water potential falls below -15 bar. Dessication is limited 
to 25 percent of the florets per head per day. Finally, the number of 
florets per head reaching maturity is limited to 60, and, it cannot 
fall below 10. Again, experimental verification of the V;<Qter stress 
levels and other factors contributing to dessication at ainthesis is 
needed. 

Conclusions and Future Research Needs 

The purpose of this paper is to document the basic ideas and con- 
structs for a general thysical/physiological process level winter 
vheat simulation model, and to assess the adequacy of the information 
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base (published literature, unpublished results, theses, etc.) for 
such a model. In constructing this model, m liave found that while 
all of the data necessary may be obtained by certain veil established 
experimental methods, by and large tliey do not now exist. Here, ve 
outline the further research needed, process, by process, as ve now 
see it. 

Data needs, here, can generally be classified either as thres- 
holds (e.g. minimum levels of tissue nitrogen which can be drawn on 
reserve basis to fulfill needs in other parts of the plant), or 
process rate coefficients. Nearly all of these data can be obtained in 
controlled environnent experiments. The SPAR unit (Phene et.al., 

1978, McKinion, 1980) has been designed expressly for this furpose. 

More SPAR units are needed at Mississippi State and at several other 
locations involved in the development of this model. 

The model presented here does not contain a mechanism for the cal- 
tailation of leaf water potential. Such a mechanism is being inco^r- 
ated by Parton and others now at Fort Collins. leaf water potential 
is used in estimating most of the plant process rates, including photo- 
synthesis. The data base for the vater stress reduction in photosyn- 
thesis nust be confirmed in experiments at all stages of development 
in crops grown under natural light. A variety of patterns of develops 
ment of water stress should be studied. The effect of leaf nitrogen 
and phosphorous levels on canopy photosyrtthetrc efficiency nusu be 
measured. The effect of starch buildup on canopy photosynthesis mist 
be ireasured. The effect of stand geometry on canopy light capture 
must be characterized. The latter can best be done in field 
plantings . 

Th('i relationships between tenperatvire, and dry matter accretion 
rates* in each class of organ must be worked out. The tissue water . 
potential level below which growt:h oeiises must be defined for each 
kind of organ. These experiments itust include root observations. 

In addition to the root growth ireasurements at v^ious tenperatures , 
the effect of soil oxygen concentration and physical iiipedance must be 
characterized. 

Three sets of parameters in regard to nitrogen and phosphorous 
are needed; the minimum concentration needed for new growth in each 
type Of organ, the maximum concentration each class of organ can tole- 
rate, and the minimum concentration to which the plant can reduce each 
class of organ for use as reserves . 

Needed morphogenetic studies include the effect of tenperature on 
the rates of secondary root and tiller formation. In the tillering 
study the etfect q£ physiological stress an tiller abortion should be 
measured, and the processes of tiller abortion and tiller initiation 
should be characterized independently. This will require a 
qonsiderable amount of destructi^ sampling in cxuntrolled environment 
e>qperirrents as Well as a lot of micrcsccpe vrork. • 

The present model determines head differentiation at one time 
(the day of accumulation of 315 heat units). A head differentiation 
model has been wri'Cten for ise in future drafts which builds the 
rachis and then elaborates spikelets and florets at rates depending on 
environmental conditions, and, aborts florets in response to metabolic 
stresses. This rtiodel will have to be verified in SPAR experiments 


67 



where tenperature and the rate of photosynthesis can be controlled in- 
dependently. 

The present model does not consider pliosj^orous nutrition. In 
the case of nitrogen uptake, only the passive movement of nitrate into 
the plant via the transpiration stream is simulated. Transpiration 
rates are too low in the seedling stage for this process to provide 
reasonable leaf nitrogen concentrations. Similar results have been re- 
ported (Baker, et.al., 1979) for the cotton nodel QOSSYM v*iich incorp- 
orates the same RHIZOS model. Active uptake of ammonium, nitrate and 
phosphorous is now being incorporated in the UPTAKE subroutine of 
RHIZOS by Cole and Parton. A phosphorous balance model for the plant 
will be included in the next draft of WINTER WHEAT. These additions 
eire required for the new head differentiation model. 

In a winter winter wheat nxxiel fall conditions, hardiness levels, 
snow cover, root temperature, etc. all need to be considered in 
simulating winter tiller survival. 

None of the ejqjeriments outlined here cire particularly difficult, 
nor do they req»aire the development of any new technology. They do 
however, require a considerable amount of time and equipment. 
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Output 

Output frcDin a typical “run" is included in Appendix d. It was 
run with soil physical parameters and weather data for the 1978-79 
growing season at Akron, Colorado, Because the form of the irodel 
described here does not contain a mechanism for the “active” uptake of 
nitrogen, the nitrogen fertilizer input used in the simulation was 
double that of the field planting. Reference to the dictionary of 
terms makes the output self expleinatory. The first block of output 
contains parameters entered by the operator from the terminal. The 
next block of output drjta lists the input soil parameters. The next 
two output block describe the simulated plant and soil system on a 
time intervcil selected by the operator and input from the terminal. 

The first of these blocks describes the plant on the output day. The 
second is a graphical depiction of the two dimension distributions of 
nitrate nitrogen, root dry matter, and soil water potential. Also 
available are naps of the ammonium nitrogen and soil water content. 
This output is included simply to suggest the kinds of information the 
model provides the user. It does not represent a validation effort, 
and the yield figure is not accurate. 


/^)pendix a. Source Listing 



70 


ORIGINAL PAGE IS 
OF POOR QUALITY 


C WHEAT-8C0CK0ATA 1 

C 


C THIS PROGRAM FILE WAS CREATED BT IIOOlFyiNG THE CLEMSOM GOSSYW FILE 


c 




0000 

4 

c 




0000 

5 



BLOCK DATA 


0000 

6 

c 

*• 



0000 

7 

c 

# 


* 

0000 

P, 

c 

* 

BLOCK DATA SUBPROGRAM. USED FOR INITIALIZATION OF 

* 

0000 

9 

c 


variables FOUND IN COMMON STATEMENTS. 


0000 

ia 

c 

* 

■p 

0000 

11 

c 

* * 



0000 

12 

c 




0000 

12 

c 





14 

c 





15 



REAL INT,LAI,LATU0E,NF,NV,NSTRES,NYTTYH,MH20,LEAFWT, 

LEAFRS, 


16 


. LEAFW,LEAFCN,JL,ia, JR, KR,JG,KG«JS,KS,JG1,LAFIDAC, LAUDAS, 17 

. HPOOL/NEUES, NEWER 

INTEGER OATNUH, TILLER, OIFREN, BOOT, HEAD, ANTHES, SPIKE, FLORET,, 19 

. SPRING, SRDAy, SECOND, OACNT, DAZE, YR 2C 

e 21 

C 22 

COFINOM /CALEN / OACNKIZ), DAZE, (10, YR 23 

COMMON 7CLIH / CLIMATIS) ,C1 <9) 24 

COMMON /CONS / ROOTCN,STEMCN,LEAFCN,GLUMCN,GRANCN 25 

COMMON /OIFFU / 0IFF(20,6) 26 

COMMON /ETPARM/ ALPHA, GAMMA, LAMDAC,LAH0AS,U,WND 27 

COMMON /EVTR / EP,ES,SESI ,SESI I ,T,NEUES,NEWEP,SUMES,SUMEP 2£ 

COMMON /FERT / FERN, FNH 4, FNO 3,0MA ,RNNH4,RNN03 29 

COMMON /FIELD / FC(20) 3f 

COMMON /FRUIT / SPI KE (10) , FLORET ( 1 0) 31 

COMMON /GEOM / 0, G, NK, NL, RTPl, RTP2, SLF, THRLN, W 32 

COMMON /GROW / LEA F W ( 1 0,6) ,ST6MW ( 1 0 ) ,GLUMW (1 0) , GRANW (1 0) 33 

COMMON /HOHBAL/ CAPUP, CUMEP, CUMES, CUMRAN, CUMSOK 34 

COMMON /H20N03/ VH20C(20,6) , WN03C(20,6) 35 

COMMON /LASTAD/ LTD A Y (1 0) ,LLOA Y < 1 0) ,ALTMP ( 1 0,6) ,A TTMP <1 0) 

. ,APTMP(10) 

COMMON /LIGHT / OAYLNG,OAYNUM,LATUDE,OAYTYM,NYTTYM, IOAY,IPRNT 37 

COMMON /LOCOUT/ KA(12),KHAR(20,6) 38 

COMMON /LOST / WTSLFD 39 

COMMON /MATR / KRU(20>, LR 4C 

COMMON /NIT / NPOOL,REQN,ROOTN,SLEAFN,STEMN,GRANN,GLUMN,PLANTN 41 

COMMON /NITCON/ JL,KL, J R ,KR,J G,K6, J S ,KS, J G1 42 

COMMON /NITLIZ/ VNH4C (2,6) ,VNC (2,6) 43 

COMMON /PARTS / LEA F ( 1 0) ,LI DATE ( 1 0,6 ) ,NTILL (1 0) ,NST EMS 
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ORIGINAL PAGE IS 
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COM.ldN /PHrTIM/ TII.LER/JOINT<10),01PAeN/BQOT<10>,Hf,/»OC10)^ 45 

. ANTHES(10)«SPRtNG,ACC0ES 46 

COBHON /PLOTS / NPN, NPP# NPR„ NPU 4? 

COdHON /POP / PN^P.SfANO,PTSN,PTSReo,fiESCF,PPLANT#RESP^SPN 46 

connoN /PS / psis(2a«6) 49 

COHffON /RESV / F2/LEAFRS,R00TR5,STEHR5/RESN,RESC 50 

COHHON /ROOTIH/ RTIMPO (20, 6 ) ,SN AME { 3) , TST0O (9,20 ) ,INRT,I1RT 51 

. ,TSTI'1P(9,20),GH20C(9),FACR 52 

CONHON /RUTWT / RCH20, ROOTS, ROOTSV (20,6) , RTUT(20,6,3) 54 

COMMON /SIZES / R0HSP,1.AI,P0PFAC,XLEAFL,AREA 55 

COMMON /SOILIO/ 01 F F0(5) ,THETAO ( 5) ,8 ETA (5) ,50EPTH (5 ) ,THETAS (5> , 56 

. THCTAfl(5),AIRDR(5),ETA(5),FLXMAX(5),S0(5> 57 

COMMON /SOLAR / INT, RI, RN, PNFAC 

COMMON /SPO / SPDWL,SP0STH,SP0«RT,SP0GLM,SPDGRN 59 

COMMON /SROOr / SRAVG,SROAT, SECOND 60 

COMMON /STRESS/ CSTRSV, CSTRSF, NF, MSTRES, NV, WSTRSO, WSTRSN, 61 

. STRSD,STRSN,FACL 62 

COMMON /TEMP / 0rAV6(7), TAVG, TOAT, TMAX, TMIN, TNYT 63 

COMMON /TIME80/ THETAI 64 

COMMON /TOTS / DAMP, NOITR, TH20, TNNH4, TNN03 65 

COMMON /TSON / TS01LD(20), TS0ILN(20), TS0LAV(2> 66 

COMMON /UPS / SUPN03,UPN03 67 

COMMON /WEIGHT/ LEAFWT,PLANTU,RaOTWT,STEMUT,GLUMWT,aRANWT,VE6WT 68 

COMMON /WETS / MH20,PS1AWG,PSIMAX,RAIM,PSIL 69 

C 0000 70 

C variables of 1 CHARACTER 0000 71 

DATA D/10./, G/1./, T/0./ 72 

C VARIABLES OF 2 CHARACTERS 0000 73 

DATA EP/0./, ES/0./, FC/20*.267/, LR/3/, NIC/6/, NL/20/, 74 

. Cl/. 3964, 3. 631 ,.03838,. 07659, 0.0, -22. 97, -.3885, -.1587, -.01021/ 75 

DATA KA/' ','0','1','2','3*,’«4»,'5','6','7','8',t9*,'*'/ 76 

DATA ICHAR/120*' '/ 77 

C' variables of 3 CHARACTERS 0000 78 

DATA KRL/2,1,1,17*0/,OMA/600./,SLF/.02/,SPN/Q./,VNC/12*0./ 79 

C VARIABLES OF 4 CHARACTERS 0000 80 

DATA DIFF/12Q*258.3/,DAMP/.002/,FNH4/0./,FN03/1./,PSIS/120*-.175/ 81 

. ,RESC/0./, RTP1/.3/, RTP2/.1/, SESI/0./, RTWT/360*0./ 82 

C variables of 5 CHARACTERS 0001 83 

DATA CAPUP/0./, CUMEP/IJ./, CUMES/0./, SUMES/0./, SUMEP/0./, 84 

. DACNT/31,28,31,30,31,30,31,31,30,31,30,31/, DTAWG/7*20. /, 0001 85 

. MH20/0./, RNNH4/60./, RNN03/4Q./, R00TN/.Q04S/, ROOTS/0./, 

. SESII/0./,THRLN/.3E-4/,VH20C/120*.267/,VHH4C/12*0./, 87 

. VN03C/120*0./ 88 

C VARIABLES OF 6 CHARACTERS 0001 89 

DATA CUMRAN/0./, CUMSOK/0./, PSIAVG/-.175/, PSIMAX/-.175/, 90 


. ROOTUT/.005/, SLEAFN/.C003/, ROOTCN/ .037/, RO0TSV/120*0./ 91 

DATA STEMHT/0./, SUPN03/0./, T5OIU0/2O*O. /, TS0ILN/20*0i/, 92 

. TS0LAV/2*0./, HSTRSD/1./, WSTRSN/1./, WTSLFD/0./ 93 

DATA ALPHA/3. 5/, GAMMA/. 653/, LAMOAC/. 23/, LAMOAS/. 3/, 94 

. U/6./,UN0/120./ 95 

END 0001 96 
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PROCRAH WHEAT 9.7 

C 98 

C 99 

RfAL lNT,LAl,LATU0E,MF^NV/NSTReS,NYTTTH/,1H20»LeAFUT#LEAFR5# 100 

. CEAFWAEAr'CN,JU,l(L,JR,KR,JG^KG,JS,KS,jS1,LAnOACAANOAS, 101 

. NPOOL,HEUES,NEWEP 

INTEGER 0 A YNUN«Ti;i.LER,DlFRFH,e00r,HEAD^ANTHES^SPlKE^ FLORET, 103 

. SPRING, SROAY, SECOND, OA£NT,OAZE,YR 104 

c 105 

INTEGER TTL1<1Q),TTL3(10),TTL4(10>,TTL5(10), 106 

. UNlTST(A),VNCUNt(6),VH2UNI<6),PSlUNl(6),NlTUNT(4> 107 

INTEGER TTLIRdO), TTL2R<10), UNITS(6), UNITSRa) 0001 108 

DINENSION CAPSCAm),PSISCA<11),VN0SCA(11},R00SCA(11) 0001 109 

C 110 

COP, ION /CALEN / OACNTdZ), DAZE, NO, YR 111 

CONNON /CLIN / CLINAT <8) , C 1 (9) 112 

CONMON /CONS / ROOrCN,STEMCN,LEAFCN,GLUNCN,CRANCN 113 

CONNON /OIFFU / 0IFF(2O,6) 114 

CONNON /ETPARN/ ALPHA, GANNA, LANOAC,LANOAS,U,WNO 115 

CONNON /EVTR / EP,E5,SESI,SESII,T,NEUES,NEUEP,SUNES,SUNEP 116 

CONNON /FERT / FERN,FNH4,f NO3,0NA,fiNNH4,RNNO3 117 

CONNON /FIELD / FC(20) 118 

CONNON /FRUIT / SPUE ( 1 0) , FLORET ( 1 0) 119 

CONNON /GEON / D, G^ NK, NL, RTP1, RTP2, SLF, THRLN, W 120 

CONNON /GROW / LEA FU( 1 0,6 ) ,STENW ( 1 0) ,GLUNU <1 0) ,GRANW ( 1 0) 121 

CONNON /HOHBAL/ CAPUP, CUNEP, CUNES, CUNRAN, CUnSOK 122 

CONNON /H20N03/ VH20C(20,6} , VNO3C(20,6) ‘ 123 

CONNON /LASTAD/ LTD A Y < 1 0) ,LLOA Y (10) , ALTNP< 1 0,6) , ATTPP( 10) 

. ,APTNP(1Q) 

CONNON /LIGHT / OAYLNG,OAYNUN,LATUOE,OA YTYN,NYTTYN, IDAY, IPRNT 125 

CONNON /LOGOUT/ <A(1 2) ,.KHAR (20, 6) 126 

CONNON /LOST / UTSLFD 127 

CONNON /NATR / KRL(20), LR 128 

CONNON /NIT / NPOOL,REQN,ROOTN,SLEAFN,STENN,GRANN,GLUNN,PLANTN 129 

CONNON /NITCON/ JL,KL,JR,KR,JC,I<G,JS,KS,JG1 130 

CONNON /NITHZ/ VNH4C(2,6) ,VNC (2,6) 131 

CONNON /PARTS / LEAF (10) ,L1DATE (10>6) ,NTILL(10) ,NSTENS 

CONNON /PHYTIN/ TILLER , J OINT (1 0 ) , 0 1 FREN,0OOT ( 1 0) ,HE AO (10) , 133 

. ANTHESdO), SPRING, ACCDEG 134 

CONNON /PLOTS / NPN, NPP, NPR, NPU 135 

CONNON /POP / PN,PSTAND,PTSN,PTSRCO,RESCF,PPLANT,PESP,SPN 136 

CONNON /PS / P5IS(2Q,6) 137 

CONNON /RESV / F2,LEAFRS,R00TRS,STENRS,RESN,RESC 138 

CONNON /ROOTIN/ RTINP0(20,6),SNAHE(3),TST90(9,20),INfiT,NRT 139 

. ,TST1NP(9,20),6H20C(9),FACR 140 















oTi/JI'H-PflGC'fs 

quality 


COnNON 

con.ioN 

CONnON 

"cOM.ION 
CON'ION 
COMMON 
COMMON 
. srusD 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 


/RUTVT / RCHSO, roots, ROOTSV(20,4) , RTyT(20,4,3) 

/SIZES / «OWSP,LAI,POPFAC,XLEAa,AR£A 
/SOILIO/ OIF F0(5), TH6TAO<5), BETA <5),SOEPTH<5),TM€TAS<5), 
THETAR(5),AIROR(S),ETA<S),FUNAX<5),ao(S) 

INT, Rl, RN, PNFAC 
SPOUL,SPDSTM,SPOWRT,SPO(iLM,SPOQRN 
$RAV(i,SROAY, SECOND 

CSTRSV, CSTRSF, NF, NSTRES,. NV, WSTR80, USTRSN, 
,STRSN,FACL 

/TEMP / OTAVOm, TAVO, TOAT, TMAX, TMIN, TNTT 
THITAI 

DAMP, NOITR, TH20, TNNHA, TNN03 
rSOlLOIZO)^ TS01LN<20), TSOLAVCZ) 

SUPN03,UPN03 

/WEIGHT/ UEAFWT,PLANTU,P.00TWT,STEnwr,6LUMHT,GRANWT,VEaWT 
/WETS / HH20,PSIAVC,PSIMAX>RAiN,PSII. 


/SOLAR / 
/SPO / 
/SROOT / 
/STRESS/ 


/TIME0O/ 
/TOTS / 
/TSON / 
/UPS / 


TTL4/*PSI5* 
• . • • . t 


DATA ROOSCA/O^O,. 
OATA TTL1R/'fiOOT» 
. ' •/' 

data TTL2R/' » 

. ' '/» 

DATA UNITS/'G/CM* 
DATA UNIT5R/' GM. 
DATA TTL1/'VOLU', 
. »S01L*,* 

OATA TTL3/UT T', 
. * • • 
DATA 

. *MN , 

OATA TTLS/'VOLU', 
. *F SO»,'IL *, • 
OATA PSISCA/-15., 
DATA VNOSCA/0.0,, 
OATA PSIUNI/' BAR 
OATA VNOUNI/' MG/ 
DATA VH2UNI/'CM** 
OATA UNITST/' MM 
OATA CAPSCA/0.0,* 
DATA NITUNT/* MG 
OIFREN-999 
TILLER»999 

00 too 1*1,10 

J01NT(n*999 


QO01,.QO0S,.Q0S,.0t,.O1S,.02,.O2S,.O3,,Q33,.O4/ 

,*S IN',^ EACS^H CE^,!LL, S^TOTAf,*^ *, 

'/ 

,'AT T'^*HE E*,’ND 0*,*F RU*,'TGR0',* *, 

*/ 

,'**3 ','SOIL',' '/ 

DRY',' WEI','GHT •/ 

'K£TR','IC Hi,'ATER',' CON ', 'TENT' , ' OF ', 

' / 

•ME E','NO 0','F WA','IN ', 

»/ 

' FOR',' EAC*,'H LA',‘YER ','ANO ',-'COLU', 

•/ 

'M£TR','IC N','ITRA','TE C ' , ' ONTE • , • NT O', 

'/ 


U2 

1*3 

1*4 

14S 

147 

148 

149 

150 

151 
152 

153 

154 

155 

156 

157 

158 

0001 159 

0002 160 
0002 161 
0002 162 
0002 163 
0002 164 
0002 165 
0002 166 
0002 167 
0002 168 
0002 169 
0002 170 
0002 171 
0002 172 
0002 173 
0002 174 
0002 175 


,«02,»Q3,«b4,«05,a06,*07 

* t(58 , , 09 , • 1 / 

0002 

176 

IS 1,1 1,1 

',' '/ 

0002 

177 

•N PE*,'R CM', '**3 ',' 

•/ 

0002 

178 

'3/CM *,'**3 ','SOXL',' 

',' •/ 

0002 

179 

♦WATE','R ',' •/ 


0002 

180 

/•1,f. 15,«2,*25,«3,*35,,4 

,.45,. 5/ 

0002 

181 

'N ‘,' ',' •/ 



182 


183 

184 

185 

186 
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# 


i00t<I)»999 

H|A0a)-999 

AMTHC5(I>»999 

STI»WU)-0. 

SLUHU(I}>0. 

SMNU<P«0< 

SPIKKU-O 

rLOPtlT(I)-0 

LfAF(l>«0 

UT0AYa)"0 

tLDAra)»o 

NTII.L<I>«0 

ATT«P<I)»0. * 

A^T«Pa)»0. 

00 100 

LEAry(i,j)-o. 

L10ATE(I^J)-0 

AUT(1P<r#J)»0. 

1-10 CONTINUE 
AHTNP-0, 

SECONO-0 

AflEA-0. 

URI.TE<Z/110) 

110 FONMATC INPUT LEAfUO^D RTUT<1,1#1) RTUT(1,2^1) ATUT(2,1,1 > ', 

. » RTWT(3,1,1) PNFAC* > 

REA0<1,*> LEAfU{1^1),«TaT{1,1,1),RTMT(;i,2,1)#RTUT(2,1»1)» 

. RTWT(3#M),PNFAC 
WRITE(2,13Q) 

130 FORHATC INPUT POPPLT F2 UATUOE LAI NOITR FACR*) 

RCAOd,*) P0PPLT#F2,LATU0E, LAI, NOITR, FACR 
aRITeC2,U0) 

HO FOR’IAtC INPUT KL KS KR KG') 

REAOd,*) KL,KS,KR,|«G 
URITE(2,150) 

150 FORMATC INPUT JL JS JR JG JC1') 

REAOd,*) JL,JS,JR,JG,JC1 
URITE.<2,160) 

160 FORNATd INPUT LEAFLGTH ROWSPACE PRINT G THRLN FACL*> 

REAOd,*) XLEAFL,R0WSP,1PRNT,G,TNRLN,FACL 
WRITE<2,170) 

170 FORNATT' TO SEE PLOT TYPE 1 UNDER FIRST LETTER OTHERUISC TYPE 0'/ 
. • ROOTS PSIS VH2CC VN03C •) 

REAOd,*) NPR, NPP, NPy, NPN 

P0PFAC-40A685.6/P0PPLT 

UaROUSPFNK 


117 

111 

119 

190 

191 

192 

193 
196 

195 

196 

197 


198 


199 

200 
201 
202 
203 
206 

205 

206 


233 


236 

237 

238 

239 
260 
261 
262 


265 

266 

267 

268 

336 
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OF POOR QUflUTY 


LIArwr«l.£AfyC1/1) 

ST£1WT»0, 

QUUMWT-O. 

SAANWTaO. 

AOOTyT»(HTWrCm,1>^ATWT(1#2#1>»*rWT(2,1,1)»ATWT«3,1*t))* 

, P0AfAC*2./A0USP*t00. 

puANtw^iEAryT+ftooTyr 
vcayf«i.EAFur>pouTur 
SLEA»N«.03*tUf;|ryT 
«OOTH"HOOTWT»403 
5TE«H«0. 

5LUHH-0. 

aRANN>0. 

UEAECN-.03 

NSTE«Ss1 

SAAV^>0. 

SAOAy-Q 

SPKINa>i?0 

LEAf(1)«1 

ACC0ES*0i 

PtANTN»SLEAfN+STE«f<^AOOTN^GAANNt(!tU«N 

C 

AEAOtS#*) LYRSOU 

C LYRSOL ■ NUMBER QF SOIL LAYERS OF DIFFERENT CHARACTERISTICS 
C — UP TO 5 AUOyEO 

C LPT1 ■ PRINT SOILS INFORMATION IF » 0; OTHERyiSE NOT. 

C SOIL OIFFUSIVITY UATER CONTENT FUNCTIONS ARE IN : 

C SARONER^y.R. AND M.S.MAYHUOH. i1958. SSSAP 22:197-201. 

C 

C SOIL WATER CONTENT PSI FUNCTION FROM: 

C BROOKS^R.H, AND A. T. COREY. 196A.HY9.PAPERS CSU 3:1-27. FOW. 

C 

REA0{5#*)<0IFF0{I),THETA0(I),BETA(I),SDEPTH(n,THCTA5<I), 

. TM£TAR{I).AIROR<I)/ETAa),BO<I),I«1ATRSOL) 

H«ITE(6,180)LYPSOL 

180 FORMAT!* NUMBER OF SOIL LAYERS*, 12 // 

LAYER MAX. depth DO THETA 0 BETA'// 

N0.',7X,'CM CM BAR/OAY CC/CC*) 

URITE(6,t85) a,SOEPTH<I>/OlFFO(I),THETAO<l),BETA{l> ,1«1,LTR50L) 
185 FORMAT!* *, 14,5X,1PAE10.3) ^ 

C SOEPTH ■ MAX. DEPTH OF LAYER 

C DIFFUSiyiTY • 00 EXP BETA*(VM20C - THETAO) WHERE 
C DO AND THETAO ARE INITIAL OR 15 BAR OIFF. AND WATER CONTENT t 
C BETA - SLOPE OF LOG 0 - THETA CURVE. 

C*****vaRNING***** watch units of OIFF. CM BAR/OAY **•*••* 


214 

215 
2U 


220 

221 

222 

223 

224 

225 
224 

227 

228 

230 

231 

232 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 
263 


265 

266 

267 

268 

269 

270 

271 
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* > ’ » t * 


C P51J ■ AlRt»l»«<{VH20C-fHtTAS)/(TH«TAS-THITAI»>)**t3/<?-tTA)) 

C AIROA ■ THE AlA IRTRY PRESSURE: THETAR • REStOUAL 

C RATER content ; THETAS > SATURATED HATER CONTENT ; 

C ETA ■ SLOPE Of SEHI-L06 PLOT. fOU. 

C SO * lULK DENSITY OF LAYER 
C 

READ<5#*) OUpa^THETAl 
C 

C HAKE aOTTOn LAYER TINE DEPENOENT BOUNDARY WHERE : 

C VH20C • THETAI FOR TINE LESS THEN TO 

C VH20C ■ THETAI - 0.00385* (TIME - TO) 

C OR VH20C ■ 0.6S*THETA1 , WHICHEVER IS LEAST } 

C SLOPES AND RESIDUAL HATER CONTENT ARE FROP i 
C QERARD,C.O. AND L.N.NANKEN. 1988. A6R0N.J. 58:39-42. FOH. 

C 

HRITE(8,190) THETAI 

190 FORHATI* INITIAL VH20 AT BOTTOM lOUNOARY •»,1PE10.3) 

C 

J ■ 1 

DELT ■ r/NQITR 
C 

DO 210 layer "I/NL 
200 CONTINUE 

tF{LAYER*D.LE.5D|PTH<J)) 00 TO 205 
J • J*1 

IFU.LT.5) 00 TO 200 

205 FLXHAX(J)*OIFFO(J)*{<THETAS(J)-THET*R<4>)/0)*<H*OELT*OAMP>* 
.EXP<BETAU)*<THETASO)-THETAO<J>)) 
fCILAYER) ■ THETASCJ) 

DO 210 KOLUHN ■ 1/NK 
VH20C(LAYEfl,R0LU«N) ■ THETASO) 

DlFF(LAYER,ICOLUHN)«OIFFO(J>*EXP<aETA<J)*<VH20C<LAYER,ICOLUHN)- 

.THETAOU))) 

TEMPI * (VH20C(LAYER,I(0LUMN)-THETAR<J>)/(THETAS(J)-THETAR<J>> 
210 PSISILAYER, (COLUMN) ■ 0.0009833*A IRDR < J > •TEHP1**(3 * / <2.-ETA( J ) ) ) 
C READ IN DATA TABLE OF H2O,0D, AND SOIL STRENOTH 
READ(5,21S)SNAME^nRT 
215 F0RNAT(3A4^2I2) 

C PRINT DATA TA3LE 

HRITE(6. 22C)SNAME,MRT 

220 FORHATC* SOIL 1D.',3AA/' NO. OF CURVES', 12) 

C 

DO 250 1*1, MRT 
R£AD<5,*)INRT,SH20C(I) 

REA0<5,*> (TST90(l,J),TSTlHPa#J),J*1/lNRT) 


272 

273 

274 

275 
278 
277 


279 

210 

211 

212 

215 

288 

287 


291 

292 

293 

294 

295 
298 

297 

298 

299 

300 

301 

302 

303 

304 

305 
308 

307 

308 
NASA 309 

310 
NASA 311 
NASA 312 

313 

314 
NASA 315 

316 

317 

318 
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C NASA 319 

WRITE<6,2i0)IMT/GH20C<n 320 

230 fORMATC NO. OF DATA POINTS*,13,> GRAVINtTRIC WATER CONTENT* ,F7. 2) 321 

UR1TE(6,2A0) ( TSTBO (I, J > ,TST1NP ( 1, j > , J> 1 , INRT ) 322 

2A0 fORMAT<* BUCK DENSITY SOU STRENSTM'/' 8H/CC IC«/CB2'/(* 323 

. ',2F12.2)> NASA 324 

2l>n CONTINUE NASA 325, 

I0AY*0 337| 

ITCF-60 

KTOAY-0 ,1 i 

260 CONTINUE 338' 

R£AD(5,*,ENO»6AO) <CLinAT(I>,I»1,a) 

IOAY-IOAY+1 

CALI. CLYNAT 342 

call SOIL 343 


IF(TAVG.QE.4.) GO TO 265 
IOAY-IOAY-1 
GO TO 260 
.i65 CALL PNET 


CALL GROWTH . 345 

CALL NORPK 346 

H208AL • TH20 - CUNRAN - CAPUP * CUMEP ♦ CUHES * CUKSOK 0003 347 

IFaDAY.LE.ANTHES(1>5 GO TO 270 1977 

AHTNP-AHTMP+TAVG 1978 

|C’fOAY«KTOAY + 1 
TOU(i»AHTNP/KTOAY 

ITGF«<-2.7)*TDUM+90. 1980 

IFdTGF.GT.SO) ITGF»50 
270 CONTINUE 

lTST»IOAY/IPRNr*lPRNT 348 


IFdTGF.LE.RTOAY) /.TST-IOAY 
IFdOAY.EQ.1) ITST«20AY 
IFdTST.NE.IOAY) GO TO 260 
WRITE.(6,230> OAYNUddOAY 

280 F0RNAT<//7/ 15X>* JULIAN DA Y> ' , 13,1 OX, • I DAY- * ,13,// ) 

WRITE(6,300) 31(3 

300 FORMATd PN PSTANO PTSN PTSRED *, 

. • RESCF PPLANT RESP') 

WRITE<6,310> PN,PSTAND, PTSN, PTSRED, R5SCF,PPLANT,RESP 
310 F0Rf1AT(2X,9E11 .3) 

WRIT E(6, 320) 358 

320 fcrnatc leafwt stemwt GLUMWT GRANWT ROOTWT', 

. * SPN*) 

WRITE <6, 3 10) LEAF’WT,STEMWT,GLUNWT,GRANWT,ROOTWT,SPN 
WRITE(6,340) 
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340 fORMAT<' SPbUC SPOSfH SPOGl/i SPOCRN •, 

. 'SPOWRT CSTRSV CSTSSf) 

WRirE<A#310) SPOWL^SPOSTP^SpOGLJI^St’OGRN^SPOWRT/CSTRSV^CSTRSf 
JRITE(6,360) 

.360 FORMATC RESC RESH REQN NPOOL 


364 

565 


, 'NSTRES MV MM) 

«RI^E(6#310) RESC,RESN,REQN,NPOOL,NSTRES,NV,NF 
WRITE(6,38C) 

310 FORMATC SLEAFN STEPN GLUHN GRANN 

. 'LEAFCN SUPN03') 

WRITE (6^ 3 10) SL3AFN,STEMM«Gl.UnN,GRANN<«LEAFCN,SUPN03 
WRITE(6>390) 

390 fORMATM SPIKEII) FI.0R£T(1) UAFCI) JOXNT(I> 

. 'BOOrU) HEAOd) ANTHESCI)*) 

DO 400 I«M)STE.1S 

WRITE(6,41C) SPllCEa),FI.OR£TU),L£AFa),JOINT(I),BOOT<I), 

. HEAO(l),AMTHESa) 

400 CONTINUE 

410 F0RnAT(10(I8,3X)) 

WRIT£<6,420) 

420 F0R(1A'T<‘ second AtCDEG PSIAVG OIFRjEN TILLER*) 

WRITE(6,430) SECOND, ACCOEG^PSIAVG^OIFREN, TILLER 

430 F0RNAT<ia,4X,F9.2,3X,£l2.S,r8,4X,18) 

WRITE(6,460) 

440 FORNATC OATLNG LAI XLEAFL INI', 

. ' TAVG') 

WRITE(6,310) OATLNG, LAI, XLEAFL, INT, TAVG 
WRiTE(6,480) 

480 FORMAT! • RCH20 STRSO STRSN WSTPSD', 

. • EP ES') 

WRITE (6,310) RCH 20, STRSO, STRSn,WSTRSO,EP,ES 
IF(NPN.EQ.I) CALL 0UT<VN03C,TTL5,TTL3,VN0SCA, 

. WN0UNI,TNN03,NITUNT) 

IF<NPW. EQ.1 ) CALL OUT (VHZOC ,1«TL1 ,TTL3,C APSC A , 

. WH2UN1,.TH20,UNITST) 

IF(NPR.EQ.I) CALL OUT (R00TSV,TTL1R,TTL2R, 

. ROOSCA, UNITS, ROOTS, UNITSR) 

IF(NPP.EQ.I) CALL 0UT(PSIF,TTL4,tTL3,PSISCA, 

. VH2UNI,TH20,UNITST) 

IF(ITGF.GT.XTDAT) GO TO 260 


368 

369 


372 

573 


376 

377 


3 78 
379 


381 

382 

383 

384 

385 

386 
:i87 

388 

389 
190 

391 

392 
0003 393 

394 

395 

396 

397 

398 

399 

400 


640 CONTINUE 

TIEL0*GRAnwT*14.8363/P0PFAC 1982 

WRITE(6,660) YIELD, OATNUN 

660 F0RMAT<//7* *** FINAL YIELD (BU/ACRE) IS*,F8.2,' ON DAY', 14) 

STOP 405 


End 


406 
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SUBROUTINE CLY''AT ^ ^ ^ 

* 

CLIMATE SUBROUTINE * 

* 


REAL INT,LATUOE,LAI,NTTTTM 
INTEGER OAZE, YR# OACNT# DAYNUM 


COMMON /CALEN 
COMMON /CUM 
COMMON /LIGHT 
COMMON /SIZES 
COMMON /SOLAR 
COMMON /TEMP 


YR 


/ DACNTdZ), OAZE, MO, 

/ CLIMAT(8),C1(9) 

/ OAYLiNG,DAYNUM,LATUOE,BAYTYM,NYTTYM,I0AY,IPRK'T 
/ ROW5P, LAI, P0PFAC,XLEAFL, AREA 
/ INT, RI, RN, PNFAC 

/ BTAVG<7), TAV6, TOAY, TMAX, TMIN, TNYT 


COMMON /TSDN / TS0IL0(20), TSOILN(20), TSOLAV<2> 

COMMON /WETS / MHZO,PSIAVG,PSIMAX,RAIN,PSIL 
C 

c 

c 

RI « CLIMAT<1) 

TMAX « CLIMAT<2) 

TMIN ■ CLIMAT(3) 

MH20»CLIMAT(4) 

RAIN«CLIMAT<5)*25.4 
DAYNUM ■ CLIMAT(7) 

RN; » RI * .8942 * .8 - 26. 

C NET RADIATION IN WATTS/M**2 
XLAT-LATUOE*. 0174533 
0EC-CK1) 

00 100 I»2,5 
J-I + 4 

PHI»0AYNUM*.01721*(I-1 ) 

0EC»0EC+C1 (I>*SINCPHI)+C1 (J)*COS(PHI) 

CONTINUE 

OECfOEC*. 0174533 

0AYLNG«ARC0S<(-.014544-SIN<XLAT)*S1N(DEC>)/(C0S(XLAT)*C0S(0£C))) 
. *7.63'’4 

T0AY«(TMAX-TMIN)*.55tTMIN 
TNYT«(TMAX-TMIN)*.15>TMIN 


too 


CALL DATE 
DAYTYM«0AYLNG 


0003 4Q7 
0003 408 
0003 469 
0003 4i0 
0003 411 
0003 412 

413 

414 
0003 415 

416 
0003 417 

418 

419 

420 

4^2 

423 

424 

425 

426 
0003 427 

428 


431 

432 

433 

434 

0003 435 

436 

437 

438 

439 
44(3 

441 

442 
44,T 

444 

445 

446 
447' 

0004 448 
0004 449 
0004 450 

451 


NYTTYM«24.-DAYLNG 452 

TAVG«(TDAY'»DAYrYM*'TNYT*NYTTYM)/24. 453 

C 454 

C PHOTOSYNTHESIS MUST BE CORRECTED TO REFLECT X SOLAR RADI- 455 

C ATION INTERCEPTED. TWO TERMS USED, THE FIRST CORRECTS FOR 456 

C AREA BETWEEN ROWS WITH NO COVER, THE SECOND IS TAKEN FROM 457 

C PAPER (LIGHT AND CROP PRODUCTION BY J L M0NT5ITH - FIELD 458 

C • CROP ABSTRACTS NOVEMBER 1965) 459 

C 460 

T£RM1»(2.*XL£AFL/R0WSP) 461 

IF(TERM1.GT.1 .) TERM1»1. 462 

TERM2-1 .-EXP(-.4*lAI) 463 

1NT«TERM1*TERM2 464 

C 0004 465 

CALL TMPSOL . 466 

C 0004 467 

RETURN 0004 468 

END 0004 469 
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, SUBROUTINE OATH 0004 470 

C •)>*******»•*«,#**•*•**•»«*••**•«•******«•***««*************** 0004 471 

C * T * 0004 472 

C * DATE .SUBROUTINE. CONVERTS JULIAN TO CALENOAR ANO • 0004 473 

C • ALLOWS TOR LEAP TEARS. • 0004 474 

C * * Q004 475 

C •»•«••«*••*«**•*•«*•««.«»«•«*••**«#****«***•**«**•**•••*••**• 0004 476 

HEAL UATUOE,NYTTTH 477 

INTECER OAZE,DACNr,YR,OAYNUN 0004 47tt 

C 0004 479 

COntlON /CALEN / 0ACNT(12), OAZE« N0« YR 0004 480 

CONMON /LIGHT / OA YLNG, DAYNUI1,LATUI>e,0A YTYH»NYTT YR, lOAY *1PHNT 481 

C 0004 482 

OACNTIZ} > 20 0004 483 

lYR ■ YR/4 0004 484 

IF(YR.EQ.iyR*4) 0ACNT(2) ■ 29 0004 485 

no > 1 0004 486 

OAZE » OAYNUM 0004 487 

00 1 I >1,1 2 0004 488 

TF(t>AZE.LE.DACNT(l)> 60 TO 2 0004 489 

NO • MO 1 0004 490 

OAZE > DAZE > OACNTd) 0004 491 

1 CONTINUE 0004 492 

2 CONTINUE 0004 493 

RETURN 0004 494 

END 0004 495 
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SU8«0UTINE rWPSOL 



49L 

C *•***•#**•****•******•*'> *••***«««**« ***!»•* •**!»** *********** 

0004 

497 

c 

T.HIS SUeROUTlNE CALCULATES A TEMPERATURE PROFILE IN 

THE* 

0004 

498 

c 

SOIL. ASSUMES HORIZONTAL HOMOGENEITT OF TEMPERATURE ( 

* 

0004 

499 

c 

OrSREGAfiOS MOISTURE CONTENT EFFECTS. 

♦ 

0004 

500 

c 

FIRST. MAXIMUM (H) t MINIMUM (L) TEMPERATURES ARE 

* 

0004 

501 

c 

calculated at 2. 4. a, t 16 INCH DEPTHS BY MULTIPLE 

♦ 

0004 

502 

c 

REGRESSION EQUATIONS OF 

* 

0005 

503 

c 

J. C. MCWHORTER 1 3. P. BROOKS. JR. 1965. CLIMATOLOGIC AL* 

0005 

504 

c 

AND SOLAR RADIATION RELATIONSHIPS. BULL. 715; MISS. 

* 

0005 

505 

c 

ASRI. EXP. STA.. STARKVILLE. 

* 

0005 

506 

c 

NOTE THAT THE GRID SIZE (D*W) IS NOT VARIABLE IN THIS 


0005 

507 

c 

SUBROUTINE. BUT THE LAYER THICNESS IS FIXED AT 5 CM. 

• 

0005 

508 

c 

MAX & MIN SOIL TEMPS FOR EACH OF THE LAYERS ARE THEN 

* 

0005 

509 

c 

OBTAINED BY INTERPOLATION t EXTRAPOLATION OF THE 2. 4. 


0005 

510 

c 

8. « 16 INCH TEMPS. 

* 

0005 

511 

c 

FINALLY. DAYTIME AND NIGHTIME TEMPSiTSMX ( TSMN) 

* 

0005 

512 

c 

ARE OBTAINED AS AVERAGE HOURLY VALUES FROM 7 A.M. THRU 

« 

0005 

513 

c 

SUNSET. & SUNSET THRU 7 A.M.. RESPECTIVELY, USING AN 


0005 

514 

c 

ALGORITHM FOB AIR TEMP PUBLISHED BY H. N. STAPLETON, 

* 

0005 

515 

c 

0* R. BUXTON. F. L. WATSON. 0. J. NoLTING. AND 0 


0005 

516 

c 

0. N. BAKER. UNDATED. COTTON: A COMPUTER SIMULATION 

OF * 

0005 

517 

c 

COTTON GROWTH. TECH. BULL. 206, ARIZONA AGRI. EXP. STA* * 

0003 

518 

c 

TUCSON 4 

* 

0003 

519 

c 


**«* 

0003 

S2C 


INTEGER OAYNUM 



521 


REAL' LATUDE.NYTTYM 



522 


OIMei’.SION TSMX(20). TSMN(20), RECDAT(24) 


0005 

523 

c 

I 


0005 

524 


COMMON /LIGHT / OAYLNG.DAYNUM.LATUOE.OAYTYM.NTt TYM 

.lOAY.IPRNT 


525 


COMMON /TEMP / 0TAVG<7), TAVG. TORY, TMAX. TMIN. 

TNTT 

0005 

52 i- 


COMMON /ISDN / TSOILD(20)> TS0ILN<20). TS0LAV(2> 


* 

527 

c 



0005 

52? 


j«a 



529 


DO 1 I = 1,6 


0005 

53C 


J*J-1 



531 


1 OTAVG(J) » DTAVG(4-1) 



53<* 


OTAVG(I) ■ TAVG 


0005 

537 


WTAVG « 0. 


0005 

S3i 


J«7 



53i 


IF(10AY.LT.7) JalDAY 



53T 


DO 2 I > 1.J 



531 


2 WTAVG ■ WTAVG ♦ DTAVGII) 



53J 


WTAVG ■ WTAVG/J 



531 


WTAVGF * WTAVG*1.8 t 32. 


0005 

54: 
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C THE NEXT EIGHT EaUATlONS ARE FRON NCUHORTER AND BROOKS. 

T2H « 1.1962*WTAVGF t 0.27389 
T2L ■ 0.960*«TAVGF f 1.4404 
T4H ■ r.1493*MTAVGF ♦ 1.1452 

T4L ■ 0.9126*WTAVGF * 2.9961 

T8H ■ 0.9655*WTAVGF 8.3121 

T8L » 0.870Q*UTAVGF f 7.9217 

T16H « 0.8409*aTAVGF t 13.988’ 

T16U ■ 0.8341 *WTAVGF ♦ 13.029 

C GET TEiHP OF SOIL ( NAX > 8Y INTERPOLATION OR EXTRAPOLATION. 

T24 ■ T2H - T4h 

T48 ■ T4H - T8H 

TSiHX<1)»(T2H+T4H+T24*1 .031 )/2. 

TSWX<2)»T8H*<T48*1 .048) /2. 

T816 » ,0492126 * ( T8H - T16H) 

00 6 I- 3/20 
J«I-3 

TSMX(l) » T8H - (2.18*(1+J*4)*5.) * T816/2. 

6 CONTINUE 

C GET TENP OF 'SOIL ININ) aV INTERPOLATION OR EXTRAPOLATION, 

T24 ■ T2L - T4L 

T48 ■ TAL - T8L 

TSNNd) ■ (T2L+-T4L + T24*! .03D/2. 

TSNN<2) ■ T8L+(T48*1.a48>/2. 

T816 ■ .0492126 * (T8L - T16L) 

00 7 I>3/20 
J«I-3 

TSNN(I) » T8L - (2.18*(1'»'J*4)*5.) * T816 / 2. 

IF<TSNN(I) .LT.TSMX(D) GO TO 7 
TSNN(I) » (TSNNd) + TSnX(I))/2. 

TSNX(I) » TSNNd) 

7 CONTINUE 

00 8 I>1/20 

C CONVERT TEMPS TO CENTIGRADE. 

TSHX(I) » (TSMXd)-32.)*. 555556 
TSMN<I) » {TSHNd)-32.)*. 555556 
3 continue 

ISR » 12 - IFIX<0ATLNG*.5) 

ISS » ISR > IFIX(OAYLNG+0.5) 

C HOUR OF SUNSET. 

C SEE PP 37 OF STAPLETON, ET AL. FOR EQUATIONS OETERNININC RECOAT 
00 9 LATER « 1,20 

TNEAN « (TSMX<LAY£R)*TSmN(LAT£R)) * .5 
SWINGH ■ (TSMX{LAYER)-TSMN<LAYER)) * .5 
00 11 IH"7,15 


0005 541 
0005 542 
0005 543 
0005 544 
0005 545 
0005 546 
0005 547 
0005 548 
0005 549 
0005 550 
0005 551 
0005 552 
NASA 553 
NASA 554 
NASA 555 
NASA 556 
NASA 557 
NASA 558 
NASA 559 
NASA 560 
NASA 561 
NASA 562 
NASA 563 
NASA 564 
NASA 565 
NASA 566 
NASA; 567 
568 
0005 569 
0005 570 
0005 571 
0005 572 
; 573 
0005 574 
0005^ 575 
0005' 576 
00051 577 
0005 578 
0005 579 
0005 580 
0005 581 
0005 582 
0005 583 
0005 584 
0005 585 


RECOAT(IH) ■ TMEAN - SUIN6H*C0S (0. 3927* (IH-7. ) ) 

IH9 ■ IH * 9 

REC0AT(IH9) » TNEAN ♦ SU INGH*COS (0 . 1 9635 • ( I H9-1 5 . ) ) 

11 CONTINUE 

00 12 IH»1,6 

12 RECOAT(IH) » TMEAN - SUINGH»COS (0.19635*(6-IH) ) 

SHRTO » 0. 

SHRTN ■ 0. 

DO 13 IH»7,1SS 

SHRTO » SHRTO * RECOATtlH) 

C SUN OF HOURLY TENPS IN OATTIHE. 

13 CONTINUE 

TSOILD(LAYER) * SHRro/dSS-6) 

C AVERAGE TEMP OF SOU. DURING DAYTIME, OEG C. 

XSS1 * ISS + 1 

00 14 1H»ISS1,24 

SHRTN = SHRTN * RECOATdH) 

C SUM OF HOURLY TEMPS IN NIGHTIME. 

. 14 CONTINUE 

00 15 1H«1,6 

SHRTN = SHRTN * RECOAT (IH) 

15 CONTINUE 

TSOILNS(LAYER) » SHRTN/ (30-ISS) 

C AVERAGE TEMP OF SOIL DURING NIGHTIME. 

9 CONTINUE 

DO 16 LAYER ■ 1 , 2 

TSOLAV< LAYER)* < TSO ILD < LA YER) *0 A YLNG+TSO ILN (LA YER) * (24. -0 A YLNG) ) 
. /24. 

c Average soil te.nperature, oeg c. 

16 conti.nue 

return 83 

EN-O. . 


0005 586 
0005: 587 
0005 588 
0005 589 
0005 590 
0005 591 
0005 592 
0005 593 
0CC5 594< 
0005 595 
0005 596 
0005 597 
0005 598 
0005 599 

0005 600 

0006 601 
0006 602 
0C06 603 
0006 604 
0006 605 
0006 606 
0006 607 
0006 608 
0006 609 
0006 610 
0006 611 
0006 612 
0006 613 
0006 614 
0006 .615 
0006 616 
(1006 617 
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SUBROUTINE SOIL 


SOIL SUBROUTINE. CALLS FRTLIZ/ GRAFLO# ET» 
UPTAKE, CAPFLO, AND NITRIF. 


REAL LATU0£,LAI,MH20,NEUES,NEWEP,NYTTyM,lNT 
INTEGER OAYNUN 

COMNON /CLIM / CL IflAT ( 8 ) , C 1 (9) 

COMNON /OIFFU / 0IFF(2C,6) 

CONNON /ETPARn/ ALPHA, GANnA,LAH0AC,LAN0A5,U, UNO 
CONNON /EVTR / EP,ES,SESI,SESII,T,NEUES,NEUEP,SUHES,SUNEP 
COM.RON /FERT / FE RN, FNH4, FN03, 0«A ,RNNH4,RNN03 
C0M10N /FIELD / FC(20) 

COMNON /GEOM / D, G, NK, NL, RTP1, RTP2, SLF, THRLN, U 
CONNON /HOHBAL/ CAPUP, CUNEP, CUMES, CU»RAN, CUNSOK 
COnnON /H20N03/ VH20C(20,6) , VN03C(20,6> 

COillRON /LIGHT / OArLMG,OAyNUCI,LATUOe,DAyTYI1,NYTTYN,IDAY,IPRNT 

COMMON /MATR / KRLtZO), LR 

COMMON /NITLU/ VNMAC(2,6) ,VNC(2,6) 

COMMON /PS / PSISC20,6> 

COMMON /RUTHT / RCH20, ROOTS, ROOTS V (20 , 6) , RTUT(2Q,6,3) 

COMMON /SIZES / ROUSP ,LA I ,POPF A C,XLEA FL , ARE A 

COMMON /SOILIO/ 01 F F0( 5) , THET AO (5 ) ,BE TA <5 ) , SOEPTH (5 ) , THETAS ( 5 J , 
. THETAR(5),AIROR(S),ETA(5),FLXHAX(5),0O<5> 

COMMON /SOLAR / IMT, RI, RN, PNFAC 

COMMON /TEMP / 0TAVG(7>, TAVG, TOAY, THAX, TMIN, TNYT 
COMMON /TIME0O/ THETAl 

common /TOTS / DAMP, NOITR, Th20, TNNH4, TNN03 
COMMON /TSON / TS0IL0(20), TSOILN(20), TS0LAV(2) 

COMMON /UPS / SUPN03,UPN03 

COMMON /WETS / .MH20,?5I AyG,PSIMAX,RAIN#PSlL 

FERN«CLIMAT(8) 

IFC10AY.GT.1) GO TO 2 
CALL FRTLIZ 

WRITE(6,1000) VN03C<1,1) 

1000 FORMATC VN03C(1,1) » ',F10.4) 

ALL FERTILIZER IS N03. 

OMA a 0. 

RNN03 a 0. 

RNNH4 a 0. 

2 CONTINUE 


OnOA 618 
0006 619 
0006 620 
0006 621 
0006 622 
0006 623 
0006 624 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

642 

643 
6,4.4 
645 

647 

648 

649 

650 

651 

652 
653- 

654 

655 

656 

657 

658 

659 

660 
661 
662 
663 


IF(FERN.GT.O.) CAtL FRTLIZ 

C 667 

IFCRAIN .GT.O.) CALL GRAFLO 668 

C 669 

CALL ET 670 

C 671 

SUPN03 a 0. 672 

SUMESaQ. 473 

SUME'P-O. 674 

C 0006 675 

DO 10 laUNOITR 

CALL UPTAKE 0006 677 

IF(UPN03.GT.O.) SUP^03 » SUPN03 ♦ UPN03 0006 678 

CALL CAPFLO 0006 679 

10 CONTINUE 0006 680 

CUMEP a CUMEP ♦ NEWEP 0006 681 

CUMES a CUMES * NEUES 0006 682 

C 0006 683 

SUPN03 a SUPN03*P0PFAC*.1 /ROUSP 684 

C 0006 685 

00 11 I«1, NOITR 

CALL CAPFLO 0006 687 

11 CONTINUE 0006 688 

call NITRIF 0006 689 

C 0006 690 

RETURN 0006 691 

END 0006 692 
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SUBROUTINE FRTLIZ 0006 693 

C*«*«**«****«#***************«**#**w*****************4«t******«**A 0006 694 

c **** noOlFIEO BY A. MARANI MARCH 1980 **************** « 9 S 

c ••••*•#«****«**•********•'>**• *4* #***«*«*ib *••«•••••«##• ••**•*•«•• ^9^ 

C SUBROUTINE ADOS FERTILIZER TO PROFILE. MUST BE CALLED AT • 0006 697 

C PLANTING DATE TO INITIALIZE NITROGEN A ORGANIC MATTER * 0007 698 

C PROFILE. MAY BE CALLED FOR SIDE DRESSING. INPUTS ARE; * 0007 699 

C FERN: FERTILIZER INORGANIC NITROGEN, LBS N/ACRE. * 0007 700 

C FNMA; FRACTION OF INORGANIC N IN AMMONIA FORM. Q TO 1 • * 0007 701 

C FN03: FRACTION OF INORGANIC N IN NITRATE FORM. C TO 1 * 0007 702 

C ORA: ORGANIC MATTER PLOWED AT BEGINNING OF SEASON, LBS/ACRE, * 0007 703 

C MUST BE .GT. 0 TO INITIALIZE N A ORGANIC MATTER ARRAYS, t 0007 704 

C RNN03: RESIDUAL N AS NITRATE IN UPPER 2 LAYERS, LBS/ACRE. # 0007 

C RNNH4: RESIDUAL N AS AMMONIUM IN UPPER 2 LAYERS, LBS/ACRE. * 0007 

C*****#********«*.*« »#•*•••••***•*•••*•*•*«*•«•**•«•***•***«**•** 0007 707 

C 0007 708 

COMMON /FERT f FERN,FNH4,FN03,0MA,RNNH4,RNN03 709 

COMMON /GEOM / 0, G, NK, NL, RTPI, RTP2, SLF, THRLN, W 710 

COMMON /H20N03/ VH20C(20,6># Vn03C(20,6> 711 

COMMON /NITLIZ/ VNH4c<2,6) , VNC<2,6) 712 

WRITE(6,10QO) 0007 713 

1000 FORMAT! • FERTILIZER SUBROUTINE CALLED •) 0007 714 

IF(OMA.LE.O.) 60 TO 2 0007 715 

C ORA .GT. 0. IMPLIES INITIAL FERTILIZATION AT PLANTING DATE A 0007 716 

C PLOWOOWN OF ORGANIC MATTER. 0007 717 

DO 3 L=1 ,2 718 

DO 3 K»1 ,NK 719 

VNCCL,|0 • OMA * .01122/(D«2.) * .01 
VN03C<L,<> « RNN03 * .01 1 22 / < D*2 . ) 

VNH4C,a,K) » RNNH4 * .01122/(0*2.) 

C 723 

C CHC L8/ACRE TO MG/CC IN TOP 2 LAYERS (.01122 LB/ACRE ■ 1 l»67CM**2) 724 

C 725 

3 CONTINUE '726 

2 CONTINUE 727 

C FERTILIZER BROADCAST AND MIXED INTO UPPER 2 LAYERS OF SOIL. 

0UMYO8 ■ FERN * FN03 * .01122/(0*2.) 

0UMY09 » FERN FNH4 * .01 1 22/ ( 0*2 . ) 

00 5 LAYER * 1,2 731 

DO 5 XOLU.RN^ ■ i,NX 732 

VN03C(LAYER,X0LUMN) ■ VN03C (LAYER, KOLUMN) ♦ 0UMY08 733 

C ADDITION OF BROADCAST N, URATE FERTILIZER. 734 

VNHAC(LAYER, KOLUMN) « VNH4C (LAY ER , KOLUMN ) ♦ 0UMY09 735 

C AOOTtrQN OF BROADCAST AMMONIUM FERTILIZER. 0007 736 

5 CONTINUE 0007 737 


0007 738 
0007 739 
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RETURN 

END 
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SUBROUTINE TsSAFLO 

C **•******»•***.>> ************ A********* *••**#•••*• **#»#**••*#* 

c * * 

C • ORAVITY FLOW OF N03 ANO H20, AFTER RAIN OR IRRIGATION. * 

C * * 

c ******* •••**•******•**#**••4.***. 

C RAIN OR IRRIGATION IS IN NH . 

REAL nH20 

OINENSION 50AKW(21), SOAKN(2t) 

C WATER SOAKING INTO LAYER. 

C NITROGEI^ SOAKING INTO LAYER 0Y NASS FLOW OF H20. 

C 

CONNON /FIELD / FC«20) 

CONNON /GEON / 0^ G, NK, NL, RTP1, RTP2, SLF, THRLN, W 
CONNON /HOHBAL/ CAPUP^ CUNEP# CUNES, CUMRAN, CUNSOK 
CONNON /H20N03/ VH20C (20,0) , VN03C (20,6) 

CONNON /WETS / NH20,PSIAVG,PSINAX,RAIN#PSiL 
C 

C VH20C: VOLUNETRIC WATER CONTENT, CN**3/CN**3. 

C FC: FIELD CAPACITY, BY LAYER, CN**3/CN**3. 

C W03C: VOLUNETRIC NITROGEN CONTENT AS NITRATE, NG N/CC SOIL. 

C D: DEPTH OF SOIL CELL, CN. 

C NL; NUNBER OF LAYERS IN PROFILE. 

C N<: NUNBER OF COLUNNS IN PROFILE. 

CUNRAN ■ CUNRAN > RAIN 
TSOAK • 0. 

00 2 KOLUNN ■ 1 , NK 
S0AKW(NL>1) ■ 0. 

SOAKlfd) ■ rain*. 10 

C H20 SOAKING INTO TOP LAYER, IN CN**3/CN**2. 

SOAKNd) » 0. 

C NITROGEN SOAKING INTO LAYER, IN N6/CN**2. 

C IF NITROGEN IN RAINFALL IS TO BE ADDED, DO IT HERE. 

OO 3 LAYER » 1, NL 

H20 ■ SOAKU(LAYER) ♦ VH20C (LA YER , KOLUNN ) *0 
C TOTAL TEnPoRARY AND RESIDUAL VOt.UNE OF HkO IN SOIL 
C cell, in C-1**3/CH*.*2. 

SOAKW(LAYER-M) ■ ANAXKO., H20-FC (LA YER > *0) 

C H20 SOAKING INTO LAYER BENEATH, IN CH**3/CM**2. 

S0AKN(LAYER*1) ■ AWAX1(0.,SOAKW(LAYBR*1)*(VN03C(LAYER, KOLUNN) 
. (VH20C (LA YER, KOLUNN )*SOAKW( LA YER) /D))) 

C NITROGEN SOAKING INTO LAYER BENEATH, IN NG/CN**2. 

3 CONTINUE 

TSOAK • TSOAK ♦ S0AKW(NL*1) 

00 6 LAYER ■ 1 , NL 


0007 7AQ 
0007 741 
0007 742 
0007 743 
0007 744; 
0007 7451 
0007 746! 

747 
0007 74R 
0007 749 
0007 750 
0007 751 

0007 752 

753 
OODS 754 
0401 755 

754 

0008 757 
0008 758 
0008 759 
0008 760 
0008 761 
0008 762 
0008 763 
0008 764 
0008 765 
0008 766 
0008 767 
0008 768 
0008 769 
0008 770 
0008 771 
0008 772 
0008 773 
0008 774 
0008 775 
0008 776 
0008 777 
0008 778 
00081 779 
0008 780 
0008 781 
0008 782 
0008 783 
0008 784 


IF(SOAKU(LAYER) .LE.Q.) GO TO 4 
C WHEN SOAKW .LT. 0, NO GRAVITY PERCOLATION OCCURS. 

VH20C(LAYER, KOLUNN) » VH20C (LAYER, KOLUNN) * (SOAKW(LA YER) - 
. SOAKW(LAYER*1))/0 

C VOLUNETRIC MOISTURE CONTENT OF SOIL CELL, IN CN**3yCM**3. 

VN03C (LA YER, KOLUNN) ■ AHAXI (0. , VN03C (LA YER,K0LUNN)+ (S0AKN(LAYER ) 
.-S0AKN(LAYER+1) )/D) 

C VOLUNETRIC NITROGEN CONTENT OF SOIL CELL, IN NG/CN**3. 

4 CONTINUE 

2 CONTINUE * 

CUNSOK ■ CUNSOK * 10.*TS0AK/FL0AT(NK) 

RETURN • 

END 


0008 785 
0008 786 
0008 787 
0008 788 
0008 789 
0008 790 
0008 791 
0008 792 
0008 793 
0008 794 
0008 795 
0008 796 
0008 797 
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SUBROUT INe £T 

c • • 

e * EVAPOTRANSPIRATION SUBROUTINE * 

C * * 

C »•**••«•••*****••*«•***••.>•«•*•«*•<[«****••***••«*•*•••**•••* 

C SUBHOUTINE TAKEN ALMOST ENTIRELif EHOM RITCHIE# A MODEL 
C FOR PREDICTING EVAPORATION FROM A FIoU CROP WITH INCOMPLETE COVER# 

C MATER RESOURCES RESEARCH VOL. 8:1204. 

C 

REAL LAM0AC#LANDA5#LAM0A#INT,MH20#NEWES#NEWEP 
C 

COMMON /ETPARM/ ALPHA#GAMMA#LAMOAC#LAMOAS#U#WNO 
COMMON /EVTR / EP#ES#SCSI#SESlI#r,NEWES,NEUEP#SUMES#SUMEP 
COMMON /HOHBAL/ CAPUP# CUMEP# CUMES# CUMRAN# CUMSOK 
COMMON /SOLAR / INT, RI, RN# PNFAC 

COMMON /TEMP / 0TAVG(7)# TAVG# TOAY, TMAX, TMIN, TNYT 
COMMON /WETS / MH20 #PSI AVG #PS IMAX #R A IN ,PS I L 
C 

VP<TMP) * EXP<1 .a2S2*TMP*(Q. 070 461 36- TMP*0. 00021 5743)) 

P » RAIN 

RS ■ RI*. 0169491525 
C RS ■ SOLAR RADIATION IN MM H20/DAY. 

TAVM1 » TAV6-1. . 

DEL » VP(TAVG) - VPCTAVMD 

C DEL-SLOPE OF SATURATION VAPOR PRESSURE CURVE AT MEAN AIR TEMP. 

LAMOA . INT*LAMOAC ♦ ( 1 .-INT) *L AMOAS 
C LAMDAC 4 LAMOAS ■ ALBEDOS OF CROP i SOIL. 

C INT-INTERCEPTION (FRACTION OF IHCIDENT RS) 

C RNO-NET RADIATION ABOVE CANOPY (MM/DAY) 

RNO*(RS-LAMOA*RS) 

C TO 4 TJ ■ DRY AND 'J£T BULB TEMPERATURES. 

TO « TAVG 
VPO » VP(TO) 

TW « TMIN 

C EO-POTENTIAL EVAPORATION RATE ABOVE CANOPY (MM/DAY) 

C MODIFIED PENMAN EO. 

C W-WINOSPEED AT 2 METERS (MILES/OAY) 

C GANMA-PSYCHROMETER CONSTANT 
VPA ■ VP(TW) 

E0»(RN0*0EL/GAMMA+.262*(1 .♦Q.0061*HN0)*<VP0-VPA))/<0EL/6AMMA*1.) 
C THE FOLLOWING CALCULATES ESC (POTENT lAL EVAP. RATE AT SOIL SURFACE1 
C RNS-NET RADIATION AT SOIL SURFACE BELOW CANOPY 
RNS«((1.-INT)-(1 .-INT) -LAMOAS )*RS 
ES0-0EL*RN5/(0EL«GAMMA) 


0038 798 
0008 799 
0008 800 
0008 801 
0008 802 
0008 803 
0008 804 
0008 SOS 
0008 806 
0008 807 
808 
0008 809 
810 
811 

0008 812 

0008 814 
815 

0008 816 
0008 817 
000? R1S 
0008 819 
0008 820 
0008 821 
0008 822 
OOOR 823 
0008 824 
0008 825 
0008 826 
0008 827 
0008 828 
0008 829 
0008 830 
0008 831 
0008 832 
0008 833 
0008 834 
0008 835 
0008 836 
0008 837 

as? 

0008 837 
0008 841 
0008 841 
0008 342 
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C SrACe l ORYINQ 

C SCSS-CUMUUAriVI STACe ONC fVAPOHATlON fHOH SOIL SURMCI 
C U'OPPfU Ll*m Of SESl 

if<sfsi,cT.u)aoro no 

C PaRAlNfALL 

ifcp.fil.sEsoGoro ni 

S6SI-S6SI-P 

99 SESlaSESI^CSO 
lf(SISI,CEjU)OOTO 102 
ES>ESO 

GOTO 110 

1C2 ES>ESO*.A*(SESI~U) 

SESIIn.6*(SESI-a) 

OUilYOl ■ SESZl / ALPHA 
T ■ 0UHY01 • 0U»Y01 
SO TO 110 
101 SESlaO. 

SO TO 99 

C STAGE M DRYING 

100 IfIP.GEiSESiDGO TO 103 
T»T*1. 

ES -ALPHA * (S0RT<T>-5QRT(T-1.)> 

IF(P.GT.O.)GO TO nA 
If (ES.GT.ES0)G0 to 105 

106 SESI1>SESI1»ES«P 
0UHT02 ■ SESir / ALPHA 
T • 0g«Y02 * 0UHY02 

SO TO 110 
105 ES-ESO 

SO TO 106 
104 ESA-0. R*P 

If<ESX.LT.£S)GO TO 107 
111 If (ESX.GT.ESO)SO TO 1QR 
109 iS-ESX 

00 TO 106 
10E ESA-ESO 

GO TO 1C9 

107 ESA-ES+P 
GO TO 111 

103 P-P-SESII 
SESI-U-P 

If(P.GT.U)GO TO 101 
60 TO 99 

C TRANSPIRATION IS PROPORTIONAL TO LIGHT INTERCEPTION <INT) 
C THIS REPRESENTS A nOOZfICATION TO RITCHIE'S HOOEL. 


I ! i 

0008 843 
0008 844 
0008 845 
0008 846 
0008 847 
0008 840 

0008 849 

0009 850 
0009 851 
0009 852 
0009 853 
0009 854 
0009 855 
0009 856 
0009 857 
0009 858 
0009 859 
9009 860 
0009 861 
0009 862 
0009 863 
0009 864 
0009 865 
0009 866 
0009 867 
0009 868 
0009 869 
0009 870 
0009 871 
0009 872 
0009 873 
0009 874 
0009 875 
0009 876 
0009 877 
0009 878 
0009 879 
0009 880 
0009 881 
0009 G82 
0009 883 
0009 884 
0009 885 
0009 886 
0009 887 


110 EP«INT*EO 

If lEO-ES.LT.O.) EO-ES+EP 
If (EP.GT.(EO-ES))£P»EQ-ES 
AWGPSl » -1. • PSIAVG 
If (AV6PS1.GT.9.Q) AVGPSI ■ 9.0 
RN ■ « I*. 71536-26. 

C RfEP ■ reduction FACTOR FOR EVAPORATION FROM PLANT. BASED ON 
C 'JNPU9LISHED DATA OF BAKER A HESKETH. 1969. 

RfEPN ■ 749.5831405 ♦ 0.96S9065-RN - 54.6600986*TAVG 
. - 194.650«43f«AVGPSI - O.OOia226*fiN*RN ♦ 1 .01 53Q07*tAVG*TAVS ♦ 
. 29.775978*AVGPSI*AVGPSI ♦ 0.02936a7*RN*TAVG 
. - 4.206856!»TAVG*AVGPSI 
RfEPD » 749*5831405 t 0.9659065*RN 
. - 54.6600986*TAVC - 19.465C8431 - 0.0010226*RN«RN 
. 1.ni53007*rAVG*TAVG .29775978 ♦ 0.0293687*fiN*TAV0 
. - .4206856«TAVG 
RfEP ■ RFEPN/RFEPD 
If(RfEP.LE.O.O> RfEP » 0.01 
Ep ■ EP * RFEP 

return 

END 


0009 888 
889 

0009 890 
0009 891 
892 
0009 893 
0009 894 
0009 895 
0009 896 
0009 897 
0009 898 
0009 899 
0009 900 
0009 901 
0009 902 * 
0009 903 
0009 904 
0009 905 
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0009 907 
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SU8R0UTINE UPT-^KE 


(*****•*•*•*•*•••#•*•*#••*••*•**#******•*••**«•*•••«*•** 
e *••****•* MODIFIED FEQ 22 1930 •#********ir«i«*****«* 


C UPTFKE OF WATER FROM EACH SOIL CEU IS PROPORTIONAL TO * 

C THE PRODUCT OF ROOT WEIGHT CAPA3LE OF UPTAKE AND THE * 

C HTORAULIC CONDUCTIVITY OF THE CELL. THE SUM OF THE t 

C UPTAKE FROM THE CELLS EQUALS TRANSPIRATION. ALL N03 IN • 

C THE WATER TAKEN UP BY THE ROOTS IS ALSO TAKEN UP. • 

C *••••••• *••••• ••*******«'»#!«*•*•**••••••*•••• ***••**«*••«**• 

C EP - TRANSPIRATION BY PLANTS, HM/DAY, 

C SUPN03 - SUPPLY OF NITRATE FROM SOIL, MG. 

DIMENSION UPF(20,6) 

INTEGER DAYNUM 

REAL NEWES , NEUEP, NTTTYH, LATUDE, INT 
C UPF - UPTAKE FACTOR, GM CM/DAY> 

C ROOT WEIGHT CAPABLE OF UPTAKE, GM/CELL. 

C 

COMMON /DIFFU t 0IFF(2O,6) 

COMMON /EVTR ! £P^SS,SC5I,S£SH,T,NEy|S,N£W£P,3UM£3,3UMEP 

COMMON /FIE'ID / FC(20) 

COMMON /GEOM / D, G, NK , NL, RTP1, RTP2, 5LF, THRLN, U 

COMMON /H20N03/ VH20C(20,6), VN03C(20,6) 

COMMON /LIGHT / 0 AYLNG ,DA VNUM ,L ATUOE ,0A YT YM,N YT T YM, IDA Y, IPRMT 
COMMON /MAfR / KRLI20), LR 

COMMON /RUTUT / RCK20, ROOTS, R0OTSV<20,6) , R TWT <2,0,6,3> 

COMMON /SOILIO/ 01 f f 0 ( 5) ,TH ETAO < 5) ,BET A ( 5) , SOEPTH (5 > ,TME TAS< 5 > 
. THETAR{5),AIROR(5),CTA(5),FLXMAX<5),80<5) 

COMMON /SOLAR / INT, RI, RN, PNFAC 
COMMON /TOTS /DAMP, NOITR, TH20, TNNHA, TNN03 
COMMON / SUPN03, UPN03 

C 
C 

OELT » 1. / NOITR 
OUMY01 ■ (.10*NI<*W*eP)*DELT 
DUMY02 ■ 0 * W 
OES ■ £S * 0.1 •OELT / 0 
C MODIFIED FOR £3 REMOVED FROM ALL KOLUMNS 
00 S i«i,2a 
DO 8 J«1,6 
UPF(I,J)«0. 

8 CONTINUE 

DO 7 KOLUMN • 1,NK 
DE ■OES 

IF(0E.ST.WM2OC{1,KOLUMN) - .25 * FC(1) ) 

. OE ■ VH20C(T, KOLUMN) - .25 * FC(1) 


0009 909 
0009 910 
911 

0009 912 
0009 913 
0009 9U 
0009 91J 
0009 9U 
1009 917 
0009 918 
0009 919 


0009 922 
923 
0009 92A 

925 

926 
0009 927 

928 

929 

930 

931 
933 
93A 
935 

0009 937 
0009 938 
0009 939 
0009 9A0 
0009 942 
0009 943 
0009 944 

945 

946 


949 

950 

951 

952 
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9 


09 




irCDE.ir.o.) OE ■ 0. 

VHEOCd^COLUHN) n VH20C(1,K0LU.1N) - 01 
SUMEJ ■ SUM6S *■ OE * 10. *0 
7 tONTlNUE 

NEWES«SUNES/ NK 
00 1 (.AYER ■!, UR 
KR ■ KRL(UAVER) 

00 1 KOUUNr^ >1, KR 

URf<LAYER/K0UU(1M) ■ (RTUr<LAYER,K0UUHN^1 ) ♦ 

. .20 i/ RTUTaAYER«K0UU»N,2) *' RfUT (LAYER, K0UU|RN#3) ) 

C SUIR3 THE WEIGHT Of ROOTS 15 OATS OLD OR LESS IN CELL. 

1 CONTINUE 

00 A LAYER ■ 1 , LR 
KR ■ KRL(LAYCR) 

00 A KOLUMN ■ 1, RR 

UfMLAYER.KOLUnN) ■ UPf (LAVER.KOLUflN} A 
. UPf(LAYER,NK-K0LU«M*1) 

C ADOS THE ROOTS GROWN BY THE PLANTS IN THE NEXT ROW TO SET 
C THE TOTAL WEIGHT Of ROOtS CAPABLE Of UPTAKE. 

A CONTINUE 

NKH ■ NK/2 
SUPf ■ 0. 

00 5 LAYER ■ 1, LR 
KR ■ XRL(LAYER) 

If (KR.CT.NKH) <R»NKH 
00 5 KOLUMN ■ 1, KR 

UPf (LA YER, KOLUMN) -UPf (LAYER, KOLUMN)»OIFf (LAYER, KOLUMN) 

C NO DEPTH FACTOR FOR CALCULATING UPf ***** MOOIflEO fEB 22 

C UPTAKE FACTOR fOR EACH CELL, MAS UNITS Of GM CM/OAY, 

C MOOIFIEO BY DIVISION TO MEAN DEPTH OF LAYER 

iFIUPf (LAYER, KOLUMN),.Lt.O.) UPf (LAYER,KOLUMN)«Q. 

SUPF ■ SUPF * UPF(LAYER, COLUMN) 

C SUM OF UPTAKE FACTORS IN THE PROFILE, USED FOR APPORTIONING 
C UPTAKE AMONG CELLS. 

5 CONTINUE 
UPN03 ■ 0. 

J ■ 1 

00 6 LAYER >1, LR 
21 1F(LAYER*0*LE.S0EPTH(J)> GO TO 20 

j ■ j ♦ 1 

IFCJ.LT.S) GO TO 21 
20 KR • KRL(LAYER) 

IF (KR.GT.NKH) KR-NKH 
00 4 KOLUMN ■ 1, KR 

UPTH20 ■ (UPF(LAYER,KOLUMN)/SUPf) * 00MY01 / 2. 


953 

95A 

955 

956 

957 

0010 9Sa 

0010 959 
0010 960 

962 
0010 963 
0010 96A 
0010 965 
0010 966 
0010 967 


0010 970 
0010 971 
0010 972 
0010 973 
0010 974 
0010 975 
0010 976 
0010 977 
0010 978 

9S0 
0010 981 

982 


0010 984 
0010 985 
0010 986 
0010 987 

990 
0010 991 

992 

993 

994 

995 
0010 996 
0010 997 
0010 998 
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H20UI*T»UPrW20/0U«Ya2 

C g»TAXI OY <<ArE« fflO« EACH CELL^ CM*OiMY. 

C EP HAS units op HM/OAV. 

If(VH2UC(l.AYEft,KOl,UHN).GT.THETARlJ> ) 50 Tfl 23 
H20UPT • 0. 

50 TO 25 

23 If (H20UPT.5T.VH20CtUAY£R#IC0l.UMN)-THET4RCj> J H20UpT« 

* VH20CaAYEP,K0LUHN)-TH£TAP<J) 

25 CONTINUE 

UPTH20«K20UPT*0UMY02 

VH20C<LAYER,»C0LUMM)»VH20C<LAYER#K0LUnN)-H2OUPT 

SU«EPflSUNeP+H20UPT 

C VOVUHETRIC WATER CONTENT OF CELL IS OilCREASED BY ANOUNT 
C OF UPTAKE FROM CELL. 

inOKOL » NK - KOLUHN ♦ 1 

C 1H4SE CQLUNN, NIRROREO ABOUT CENTERLiNE OF PLANE. 

WH20C(LAY£R#If1GK0L) ■ VH20C (LAYER, IH5K0L) “ H20UPT 
5UN£P»SUHEP»H20UPT 

C VOLUNETRIC WATER CONTENT OF INAGE CELL IS ALSO REDUCED. 

UPN03C-Q. 

IF<VH20C{LAYER,K0LUNNi.LB.THeTAR(J)) GO TO 31 

UPN03C ■ UPTH20*(VN03C(LAYeR,K0LUNN)/VH20C<LAYER,K0LUNN)> 

C UPTAKE OF N03 FRON CELL, NG N/OAY. 

C ALL NOS IN WATER UPTAKE STREAN IS TAKEN UP. 

31 CONTINUE 

UN03C(LAYER,K0LUMN) ■ VN03C (LA YER,K0LUNN) - UPN03C/0UMY02 
C VOLUNETRIC NITRATE CONTENT OF CELL IS DECREASED BY AHOUNT OF 
C UPTAKE FROI CELL, NG N/CC SOIL. 

UPN0 3 • UPN03 UPN03C 

C SUN OF UPTAIi!!i OF NITROGEN AS NITRATE FROM THE SOIL PROFILE, 

C NG FOR TH£ SAY. 

UPN03I«0.: 

IF(VH20C(LAYER,INCKOL).LE.THITAR(J)) go TO 35 

UPN03I ■ UPTH2O*(VNO3C(LAYER,InGK0L>/VH2OC{LAYER,INGKOL)) 

C UPTAKE OF N03 FRON IHACE CELL, NG N/OAY. 

35 CONTINUE 

VN03C(LAYIR,INGK0L) * VN03C(LAYER,INGK0L) - UPN031/0UN Y02 
C VOLUNETRIC NITRATE CONTENT OF INACE CELL IS ALSO OECREASEO 

UPN03 ■ UPN03 ♦ UPNQ3I 
6 CONTINUE 

N£WEP»SUNEP*0/NK»10. 

RETURN 

END 


0010 999 
00101000 
00101001 
1002 
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SUBROUTINE CAPFLO o 

********* i*****************^******************* **♦#♦*** ****** 

* ■■7.) * 

•> CAPILLART FLOW OF N03 AND H20 IN ALL DIRECTIONS. ,, * 

* I :, ^ * 

************************************************************ 

o 

')) 

REAL LA I 

DIMENSION FNL(20,6)/FNU<20,6)*FWLC20,"6)*FUU(:20,6),CONO(20*6 
FLU5C OF H20 TO THE LEFT OUT OTX THE CELL* CH**3/ CELL/ DAT . 

FLUX OF H20 UPWARD OUT OF THE CELL* CM**3/CELL/DAY. 

FLUX OF NITROGEN TO THE LEFT OUT OF THE CELL* MG N/CELL/DAY. 
FLUX OF NITROGEN UPWARD OUT OF THE CELL* MG N/CELL/DAY. 

COMMON /OIFFU / 0IFF(20*6) 

COMMON /GEOM / D* G* NX* NL* RTP1* RTP2* SLF* THRLN* W 
COMMON /HOH0AL/ CAPUP* CUMEP* CUMES* CUMRAN, CUMSOX 
COMMON /H20N03/ VH20C(20*6)* VN03CC2Q*6) 

COMMON /PS / PSISI2Q*6) 

COMMON /SUES / R0WSP*LAI*P0PFAC*XLEAFL*AREA 
COMMON /SOILID/ 01 F FQ (5 ) *TH ETAO (5 ) *BETA (5 ) * SDEPTH CS ) , THETAS 
THETARCS) *AIRDR (S)*ETAC5)*FLXMAX(5),aD(5) 
COMMON /TOTS / DAMP* NOITR* TH20* TNNH4* TNN03 ,, o 
COMMON /TIMEBO/ THETAI 

C ^ 

DO 860 1=1*20 
DO 860 J=1*6 
FNL(I*J)=0. 

FNU(1*J)=0. 

/] FWU(I*J) = Q. 
k FWL(I*J)=0. 

860 CONTINUE " 

NLM1 = NL-1 
J = 1 

OELT = .5 / NOITR 
. DO 4 LAYER, = 1 * NL 
214 IF<LAYER*0'.LE.S0EPTH(J))G0 TO 15 
J=J*1 

IF(J.LT.S) GO TO 214 

C ************************************************************** 

C COND IS SOIL CONDUCTIVITY . • 

15 COMTINUE ! i) 

IF(LAyER.EQ.NL) THETAI=THETAS CJ ) 

" DO 4 -XOLUMN = 1 , NX 


<5), 


1038 

•00101039 

00101040 

00101041 

00101042 

00101C43 

1044 

1045 

1046 

00101048 
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DIFF(lA¥£R,KOLUM/N)«C. 

rF(VH20C(LAYER#^0l,U«N).GT.THeTA0<J)) 01 F F (LA VER ,K0LUMN) « e 
. OIFFO< J)*EXP(aETA< J)*(VH2QC(LAYER,K0LUllN)-THErA0(J>)) 

C OIFFUSIVITY FUNCTION FOUND IN ; 

C GARDNER AND MAYHU6H. 1966. SSSAP 22:197“2Divi FDU. 
C0N0(LAYER,K0LUi1N)=O. 

IF(VH20C{LAYER,K0LUMN).LE.TH£TAS(J) ) GO TO A 
CONO(?>AYER, COLUMN) “0.12 * ( < VH20C (LA YER, KOLUMN)-THET AR ( J ) ) / 
. (THETAs(J)-THETAR(J) ) )**(3.*ETA(J)/(ETA(J)-2.)) ,, 

IF(C0N0(LAYER, (COLUMN) .GT. 3.) CONO (LA YER , COLUMN ) » 3. 

******** ******LV**** ********************************* 1^.1^* ***** ******** 

C <7 n 

A CONTINUE ,, {} 

0UMYO1 = 0 * DAMP * CELT J' 

J a 1 

DO 5 LAYER » 1, NL 

302 IF(LAYER*O.LE.SDEPTH(J)) GO TO 303 
J a J + 1 

IF(J.LT.S) GO TO 302 

303 DO 5 COLUMN a 1, NC 

CMl a COLUMN - 1 
IF(CMI.EQ.O) CHI a NC 


1082 

1^083 

108> 

1085 

1086 
1087 

1090 

1091 
00111092 
00111093 

1094 

0011109S 

1096 

1097 

1098 

1099 

1100 
1101 


C ********** **nf*»*i»***a***i***#,**iKf*'**i>i *★★#*** ************************** “I •} 02 

C OIFL IS THE ARITHMETIC MEAN OF DIFF OF THE TWO CELLS. "(103 

DIFL = (DIF>(LAYER,C0LUMN)+DIFF(LAYER,CM1) ) /2. 110A 

FWL(LAYER, COLUMN) = OIFL 1105 

. *((VH20C(LAYER,COLUMN)-VH20C(LAYER,CM1))/W) * DUMYOt 1106 

C .FLOW OF WATER TO THE LEFT, OUT OF CELL, CM**3/GELL/DAY. 00111107 

C SIMPLY DARCY'S LAW USING MEAN CONDUCTIVITY. “ 00111108 

FWLMAX a (VH20C(LAYER,C0LUMN)-VH20C(LAYER,CM1) )*W*D / 10. 1109 

IF (ABS(FWL (LAYER, COLUMN) ) .GT.A8S<FWLMAX))FWL(LAYER;>C0LUI!)N)aFWLMA.X 1110 
C FWLMAX IS USED TO PREVENT EXCESSIVE WATER FLOW IN ONE ITERATION. 1111 

Q * ************************** ********** ***************** **#u* ************ 1112 

C WHEN FLOW IS INTO THE CELL (NEGATIVE FWL) THE CORRECT CALCULATION 1113 

C 3F FNL IS BY USING VN03C AND VH20C VALUES OF THE OTHER CELL. 1114 

IF(FWL(LAYER, COLUMN). LT.O.) GO TO 304 1115 

FNLCLAYER, COLUMN) = FWL(LAYER,C0LUMN)*VN03C (LAY ER, COLUMN) / 1116 

. VH20C(LAYER,C0LUMN) 1117 

GO TO 51 ,1118 

30A FNL(LAYER, COLUMN) = FWL(LAYER, COLUMN) *VN03C (LAYER, CMl ) / 11V9 

. VH20C<LAYER,CM1) 1120 

C FLOW 0,T N03 to THE LEFT, out OF CELL, MG N/CELL/DAY. 00111121 

C MASS flow OF N03 IN H20, GM/CELL. 00111122 

C * * * *^** *************** ******************** ************ *****,******* *******^ i 23 
C *** REDISTRIBUTION OF NITRATES CAUSED BY DIFFERENCES IN> THEIR 112A 
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CONCENTRATIONS IN SOIL SOLUTION OF ADJACENT CELLS. ***«*-***** 1125 

51 FNLILAVER, COLUMN) = FNL.t-LATER ,<OLUMN) ♦ {VN03C (LAYER, (COLUMN) / 1126 

. VH20C (LAYER, (COLUMN) -VN03iil AY ER,ICM1)/VH20C (LAYER, KM1))*0ELT*1 .5 1127 

CONTINUE :k> * 00111123 

J = 1 o 1129 

00 6 layer » 2, N3. 00111130 

IF(LAYER*O.LE.SOEPTH(J)) GO TO 203 • 1131 

j J + 1 1132 

IF(J,LT.5) go to 2 , 1133 

00 6 (COLUMN 3 1,N(C 1134 

*i^ilr##-A(ilr*^ir#-**«4p******* * ***'***«< *** ilr# ikr# 'Ik-*#* tip 1135 

DIFU IS THE ARITHMETIC MEAN Off OlFF OF THE TWO CELLS 1136 

CONU IS THE CONDUCTIVITY OF THE (JPRER CELL. 1137 

THE PROCEDURE ALLOWS FOR GRAVITY I^LOW WHEN VH20C OF UPPER CELL 1138 

IS HIGHER THAN FIELD CAPACITY. 112? 

DIFU » (0IFF(LAyER,(C0LUMN) + 0IFF(LJcTER-1, (COLUMN)) / 2. 1l40 

FWU (LAYER, (COLUMN) = (DIFU*(VH20C(LAYER,(C0LUMN)-^VH20C(LAYER-1,(C0LUMN) IIG'i 

. ) / 0 - CONO(LAYER-1, (COLUMN) ) * W * DAMP *OELT 1142 

: FLOW OF WATER UPWARD, OUT OF CELL, CM**3/CELL/0AY. . 00111143 

FWUMA.X » CVH20C(LAYER,(COLUMN)-VH20C (LA YER-1 , (COLUMN) ) *W*0 / 10. 1144 

I F ( ABS ( FWU ( lay ER, KOLUMN) ) . GT . ABS ( FWUMAX) ) FWU CL AT IR ,KOLUnN) sFWUnAX 1145 

FWUMAX IS USED IQ PREVENT EXCESSIVE WATER FLOW IN ONE ITERATION. 1146 

* * * *** *^* * **************** * * ********************** * ** *c^,*** *****4,'***** 

WHEN FLO'i IS DOWNWARD, VN03C AND VH20C OF UPPER CELL ARE USED. 1148 

IF(FWU(LAYER,(COLUMN).LT.Q.) GO TO 300 > 1149 

FnU(LAYER, (COLUMN) = FWU(LAYER,(COLUMN)*VN03C(LAY£R, (COLUMN)/ 1150 

. VH20CCLAYER, KOLUMN) u 1151 

GO TO 61 1152 

300 FNUCLAYER, (COLUMN) =» FWU(LAYER,(C0LUMN)*VN03C (LAYER'^1 , KOLUMN) / 1153 

. VH20C(LAYER-1, KOLUMN) 1154 

FLOW OF N03 UPWARD IN THE WATER, MG N/CELL/DAY. 00111155 

********************************************************************* ^ 56 

*** REDISTRIBUTION OF NITRATES IN ADJACENT CELLS. *♦****★**<.♦** 1157 

61 FNU(LAYER, KOLUMN) a FNU (LA YER, KOLUMN) + (VN03C (LAYER, KOLUMN) / 1158 

.VH20C (LAYER, KOLUMN) -VN03C(L AYER -1 , KOLUMN) /VH20C (LAYER-1, KOLUMN) ) 1159 

. * DELT * 1.5 1160 

6 CONTINUE 00111161 

J»1 , O . 1162 

DO 16 layer a 1,NLM1 1163 

40 IF(LAY£R*0.LE.SDEPTH(J)) GO TO 41 1164 

J=J+1 . 1165 

IF(J.LT.S) GO TO 40 1166 

41 DO 16 KOLUMN A 1 ,NK • „ ' 1167 

RPI a KOLUMN +1 0 1168 

rF(KOLUMN.Ea.NK) KP1 = 1 1169 
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FWICN n FWMUyEflvKPI.) - FwueuAyeR^^wt.u'iN) f . 1170 

. FyUCLAYER + I^KOLUMN) - FWU(LAyER,KO’tUMN) " 1171 

C FLUX OF H20 INTO THE CELL, NET, CM**3/CE\L. 1172 

VH20CCLAyER,K0LU!1N) » VH20C (LATER, KOLUMN) + FWICN/(0*W) 1173 

C 0 117A 

TF(VH20C<LAYER,K0LUHN> .LE.AIROR (.1)) VH20C'^LAy£R,K0LU/lN)sAIR0R(J) 1175 

1>j CONTINUE 1176 

DO 30 KOLUMN * 1, NX 1177 

C ************** A **(r<^,* **«*##* *******#***'**** A* *'*#*'**'iir4r**(kllM»*«* 1178 

C THIS,INSURES DRAINAGli 'AT THE BOTTOM LAVER. 1179 

It-<VH2OC(NL,K0LUMN).LE.TH£TAI> GO TO 30 , 1180 

CUMSOX « CUMSOX +(VH2OC(NL,XOLUMN)-TH£TAI)*0*W*1O,/ROWSP 1181 

VH20C(NL,XOLUMN) » .THETA! 1182 

30 CONTINUE 1183 

C BOTTOM BOUNOARY FROM GERARD AND NAMKEN DATA 1184 

C 1185 

DO 7 LAYER « 1, NL ‘ 00111186 

DO 7 XOLUMN = 1,NX 1187 

XP1 a XOLUMN ♦ 1 II 1188 

IFCXOLUMN.EG.NX) XPI » 1 1189' 

IF(LAYER.ECI.NL) GO 70 71 1190 

FNICN * FNL(LAYER,XP1) - FNL(LA YER,XOLUMN) + 1191 

. FNU(LAYER«-1,X0LUMf|) - FNU(LAYER, XOLUMN) 00111192 

GO TO 72 1193 

71 FNICN = FNL(LAYER,KP1) - FNL(LAYER, XOLUMN) - FNU (LAYER,XOLUMN) 1194 

72 CONTINUE 1195 

C FLUX OF N03 INTO THE, CELL, NET, MG N/CELL/DAY. 00111196 

VN03C(LAY£R, XOLUMN) = VN03C (LA YER, XOLUMN) + FNICN/(0*W> 00111197 

C VOLUMETRIC NITROGEN CONTENT OF SOIL CELL, MG N/CM*o3. 00111198 

7 CONTINUE 00111199 

TH20 a 0. , 00111200 

TNN03 a 0. ■ 1201 

Ja1 1202 

bo 8 LAYER a 1,NL 1203 

C »******★★********»*****★★****★**★*>*****★***********♦****»*★*★★** 1204 

C PSIS IS CALCULA’TED after CAPFLO. PSIS 13 -0.3 BAR FOR THETAS, 1205- 

C -15.0 BAR FOR THETAR, AND ASYMPTOTIC FOR AIRDR. 1206 

34 TEMP2a (THETAR(J)*»AIR0R(J))/(THETAS(J)-AIR0R(J)) >' 1207 

TEMP3 a aL06(50.) / AL0G(TEMP2) 1208 

IF(LAYER*0.LE.S0EPTH(J)) go to 35 1209 

JaJ+1 1210 

IF (J.LT.5) GO TO 34 1211 

35 DO 8 XOLUMN a 1 , NX 1212 

IF(VH20C(LAYER, XOLUMN) .GT.THETAR(J)) GO TO 45 1213 

PSIS(LAY£R, XOLUMN) a -15. -- 12U 


GO TO 50 1215 

45 CONTINUE 1216 

TEMPI a {VH20C(LAYER,XOLUMN)-AIROR(J'))/(THETAS'(J)-AIRDR(J)) 1217 

PSIS(LAYER, XOLUMN) = -0.3 * TEMP1**TEMP3 1218 

C H20 POTENTIAL OF SOIL CELL, IN BARS. 1219 

it if it ir it if -k -k ^r it ir ii if it it it 'k -k -If it it it * -it ir if It ^ -k -k ir 1 if 1r ir It Ir if it it itit it ir ir itir ir iHr it It it * iHr it it 1220 

C 1221 

SO CONTINUE 1222 

TH20 a TH20 + VH20C (LA Y ER , XOLUMN) 00121223 

TNN03 a TNN03 + VN03C(LAY£R, XOLUMN) 1224 

8 CONTINUE ,',i 00121225 

TH20 a TH20 * 0 * W *0.1 1226 

C TOTAL HATER PROFILE 00121227 

TNDi03 a TNN03*D*H 00121228 

RETURN 00121229 

END ■ 00121230 
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SUQRpUTINE NITRIF „ . 

Q ********»***♦********•****•****■*#*'*#*****•«'*******■**»*'<►****** 

c * * 

C » SUBROUTINE NITRIFICATION * 

C * 

0 tr ii ^ltk**^|»***^^*^t^|•^|***■^^^^***i‘*i>**1>*^|* ********* t>* *********** *ii** 

c 

C SlIiPLIEO VERSION BASED ON KAFKAF1 ^HADAS^BAR-TOSeF MODEL 
COMMON /FIELD / FC(20> 

COMMON /GEOM / D, G, N<# NL, RTP1# RTP2, SL^, THRLN/ W 
COMMON /H20N03/ VH’^0£{2Q,P) >VN03C (20,6) 
common /N1TL12/ VNH4C (2,6) ,VNC (2 ,6) 

COMMON /TOTS / OAMP,NOI TR, TH20,TNNH A,TNN03 
COMMON /TSDN / TS01L0(2Q), TSOILNC20), TS0LAV(2),/. 

TNNHA ■ 0. 

DO 5 L"1,2 

T ■ TSOLAV(L) '' 

FMIN » 7300000. • 1 0. ** (-27,58. /(T+273.)) 

FNIT « .05 * 10. **('12. - 3573. /(T+273)) 

DO 5 K»1,NK 

UFHIN » VH20C(L,IO/FC(L) 

DNMIN P VNC(L,jO * FMIN * WFMIN 

VNC(L,>C) » VNC(L,K) - DNMIN 

VNH4C(L,F) » VNH4C(L,K) + DNMIN 

WFNIT » 0.7 - 1.30 * (c^'JITL)- VH20C(L,K) )/FC(L) 

IFCJFNIT.LT.O.) UFNIT «0. 

DNIT * VNH4C(L,K) * FNIT * WFNIT 

VNH4C(L,)() » VNH4C(L,K) -DNIT ' 

VN03C(L,K) » VN03C(L,K) + DNIT 
TNNH4 a TNNH4 + VNH4C(L,K) 

5 CONTINUE 

TNNH4 » TNNH4 * 0 • W 

RETURN 

END 
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SUBROUTINE PNEt 

* 0 . 

* PNET SUBROUTINE * 

* ,// * 

*#*****■**#•***★************•*»**********•**************♦****' 


REAL INT/LEAFWT,LEAFCN,LEAFRS<,HHZ0^LAI 

0 

COMMON /POP / PN,PSTAN0,PT5N,PTSRE0,RESCF,PPLANT,RESP,SPN 
COMMON /SOLAR / INT> Rl, RN, PNFAC 

COMMON /TEMP / 0TAVG(7), TAVG, TOAY/ TMAX, THIN, TNYT 
COMMON /WETS / MHZ0,PSI AVG,PSIMAX,RAIN,PSIL H 

COMMON /CONS / R00TCN",STEMCN,LEAFCN,GLUMCN,GRANCN 
COMMON /RESV / F'i,L£AFRS,ROOTRS,STEMRS,RESN,RESC 
COMMON /SIZES / ROWSP, LAI, P0PFAC,X^EAFL, AREA 

COMMON /WEIGHT/ LEAFWT,PLANTW,ROOTWT,SrEMWT,GLUMWT,GRANUT,VEGUT 


LEAF WATER POTENTIAL IS FUNC OF SOLAS RAOIATION, HUMIDITY 
AND SOIL WATER POTENTIAL 

PSIL»PSIAVG*5, 


calculate Photosynthesis reduction factor for moisture stress 

CURVE TAKEN FROM PAPER BY 0 W LAWLOR IN PHOTOSYNTHETICA 1976 
PAGES 378-387 o 

PTSREO-0. . \ 

IF(PSIL.LT.-18.) GO TO 10'“ 

PTSREO-(PSIL+18.)/13. 

IF(PTSREO*GTi(1.) PTSREDs«1. ■' 

10 CONTINUE 


POTENTIAL CANOPY PHOTOSYNTHESIS IS A FUNCTION OF SOLAR 
RADIATION. CURVE FROM FLORENCE SPAR DATA 1979 UfiPUBL-ISHEO 
(UNITS ARi SM5/H**2/0AY) 

PSTAN0*8.218+RI*(.22138-.00012*RI) 

IF LEAF NITROGEN CONC < U CALC PHOTOSYNTHESIS RGOUCTION FACTOR 

PTSN»1,0 

IF(LEAFCN.LT..ai) PTSN»1 00. *LEA FCN | 

CALC PHOTOSYNTHESIS REDUCTION FACTOR FOR LEAF LOADING FEEDBACK 
AS FUNCTION OF LEAF CARBOHYDRATE LEVEL. CURVE FROM RESEARCH 
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BULLETIN R07 - SIMED 1310 

1311 

STARCH»RESC/(RESC*LEAFUT+STEMWT) 1312 

RESCFa1.-.28*STARCH 1313’ 

IFISTARCH. GT.. 18. AND. STARCH. LE, .23) RESCFal ,67-4.*STARCH 1314 

IFISTARCH. GT.. 23. AND. STARCH. LE. .28) RESCF=3.74-1 3.*STARCH 1315 

IF(STARCH.GT..23) RESCF-.1 ' 1316 

1317 

v”H0T0SYNTHATE PRODUCEO/PLANT = POTENTIAL CANOPY PHOTOSYNTHESIS 1318 

AOJ FOR LIGHT INTERCEPTION, PLANT POPULATION i REDUCTION FACTORS. 1319 

POPFAC/100 CONVERTS FROM G/M<"»2/0AY TO G/PLANT/DAY 1320 

1321 

PPLANT»PSTANO*INT*PTSN*PTSRGO*RESCF»POPFAC/100. 

C 1323 

C RESPIRATION LOSS IS A FUNCTION OF TEMPERATURE"; THE CURVE IS 1324 

C FROM FLORENCE SPAR DATA 1979 UNPUBLISHED 132 . 

C 1326 

RESP»((TAVG“13.)/12S00.*24.)*PLANTW 1327 

IFCRESP.lt. 0.) RESP=0. 1328 

C 1329 

C REDUCE PHOTOSYNTHATE BY RFSPIRATORY LOSS 1330 

C 1331 

PNa(PPLANT-RESP)*.681S2 
IFCPN.LE. PNFAC) PN=PNFAC 

SPN=>SPN+PN 1334 

return 1335 

END Q7 1336 




f 



•'0 


(1 


/ 


OP PAG?: IS 
OP POOR QUALir? 


a 









£) 


SUBROUTINE GROWTH 
C 

c ****************•**************'*****#*'£;!> *•*«*<* ********** 

C • '^^ROUTH SUBROUTINE u * 

c p // j! * 

c **»***#*********>*★*♦***★**#*****♦*****♦*************.«»****■*#* 

REAL INT,LAI,LATU0E,NF/NV,NSTRES/NyTTYM,NH2LLEAfUT,LEAPRS, 

^ . L£AFU,LEAFCN^JL^KL,JR,»tR,JG,>CS,JS,KS,JGl,NPOOL " 

integer 0 AYNUM, T ILLER, 0, 1 FREN, BOOT, head, ANTHES, spike, FLORE, T, 

. SPRING, SR.OAy, SECOND 0 ? 

C 

DIMENSION PDWLMQ,6) ,PDSTEM(10),,P0GLU«(10),PDGRANC10) 

C 

COMMON /CONS / ROOTCN,STEMCN,LEAFCN,GLUMCN#ORANCN 
COMMON /FRUIT / SPIKE ( 1 0) , FLORET <1 OJ 

COMMON /GEOM / D, G, NK, NL, RTP1> RTP2, SLF, THRLN, W 
COMMON /GROW ,/ LE AFWd Q ,6 > ,STE MW ( 1 0) ,GLUMW (1 0) ,GRANW <1 0) 

COMMON /LASTAOV I'iLTD AY <1 0) ,LLDAY ( 1 0) /ALTMP( 1 0,6) , ATTMP <1 0) 

. ,APTMP(1H) 

COMMON /LIGHT / 0AYLN6,0AYNUM,LATU0E,DAYTYM,NYTTYM,I0AY,IPRNT 
COMMON /LOST / WTSLFO 
COMMON /MATR / KRLI20), LR 

COMMON /NIT / NP00L,REQN,R00TN,SLEAFN,STEMN,GRANN,GLUMN,PLANTN 
COMMON /NITCON/ J?i,KL,JR,KR,JG,KG,JS,KS,JG1 
COMMON /PARTS / LEA F (1 0) ,LI DATE < 1 0,6) ,NTILL (1 0) ,N.STEMS 
COMMON /PHYTIM/ TILLER , JOINT (1 0) ,0 1 FR EN , BOO TCI 0) , DEAD ( 1 0) , 

. AN^THESnO), SPRING, ACCDEG 

COMMON /POP / pn,psiano,ptsn,ptsred,rescf,pplant,re'sp,spn 

COMMON /PS >/ PSIS(20,6) 

COMMON /RESV / F2,LEAFRS,R00TRS,STEMRS,RESN,RESC 
COMMON /RUTWT / RCH20, ROOTS, R00TSVt20,6) , RTWT(20,6,3) 

COMMON /SIZES / ROWSP, LAI, POPFAC,XL£AFL, AREA 

COMMON /SOLAR / INT, RI, RN, PNFAC ^ » 

COMMON /SPO / SPDWL,SPOSTM,SPD»RT,SPOGLM,SPDGRN ^ 

COMMON /SROOT / SRAVG,SRDAY, SECOND 

COMMON /STRESS/ CSTPSV, CSTRSF, NF, NSTRES, NV, WSTRSD, WSTRSN, 

. STRSD,STRSN,FAul" 

COMMON /TEMP / DTAVG(7), TAVG, TOAY, TMAX, TMIN, TNYT 
COMMON /TSDN / TS0IL0<20), TS0ILN<2Q), TS0LAV<2) 

COMMON /UPS / SUPN03,UPN03 

COMMON /weight/ leafwt,plantw,rootwt,stemwt,glumwt,granmt,v£gwt 
COMMON /WETS / MH20,PSIAVG,PSIMAX,RAIN,PSIL 

c 
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li " 

OETERfllNe FACTOR TO CONVERT LEAF AREA TO WEIGHT. AREA IS IN CM»*2 
S WEIGHT IS IN GRAMS, FROM UNPUBLISi<ED DATA FURN1SH|0 BY SMIKA 

WTF-.002S ' ° 

DETERMINE F.ACCOR TO BE USED TO REDUCE P0T|NTIAL WEIGHT CHANGE 
DUE TO WATER l^STR ESS. 

RFWSr»(WSTRs|^0AyTYM+WSTRSN*NYTTYM)/2A. 

POTENTIAL STEM ^KpMTH IS FUNCTION Of TEMPERATURE S AGE 
POTENTIAL GLUME F/^OUTH IS FUNCTION OF TEMPERATURE & AGE 
POTENTIAL GRAIN DRY MATTER ACCUMULATION .FUNCTION OF AGE 6 TEMP 

' DO 100 I«1,NS,TEMS 

POTENTIALS DURING HEADING 

o 

P0STEM<I)<«a. 0 - 

POGLUHCn^*. 000005 
P06RAN{I)a.ti0008*TAVG-.0001 

IFlPDGRAN d) .LT.Q.) PDGRAN(I)«0. ,t a 

IFIIOAY.GE.JOINHI)) GO TO 40 

POTENTIALS PRIOR TO JOINTING 

0 

POSTEH( I)». 00005 
P0GLUM<I)»0. 

POGRAN(I)»0. 

GO TO 100 

40 IFdDAY.GE.BOOTdn GO TO 60 


potentials DURING JOINTING 
P0STEM<I)».0022 

PoOLUM(I)*0. , 

P0GRAN(I):«0. 

GO TO 100 

60 IFdDAY.GE.ANTHESd) + 4) GO TO. 100 

POTENTIALS DURING BOOT AND THRU ANTHESIS 

PDSTEM(I)«.0079 
POGLUMd)-. 00002 
POGRANd)»p. 
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ZERO ACCUMULATORS TOR WEIGHT CHANGE POTENTIALS 

100 CONTINUE ■ 

SPOUL-0. 

SPOSTH-Q. 

SPOGLM-0. 

SP0GRN»0. 

GO THRU LOOP FOR EACH STEM TO SUM POTENTIALS 

IF(NSTEMS.LE.O) RETURN 
DO 160 I»1/NSTEMS 
IF(LEAFa).LE.O) GO TP UO 
K«LEAF<1> 

DO 120 J«1,R 

CALCULATE POTENTIAL CHANGE IN LEAF AREA AS FUNCTION OF TIME 

from unpuoLisheo data furnisreo at smiica 

. .... 

I’inM-IDAV-LlOATEd^J) 

IF(ITIM.LE.25) RAOAYa.2 

IF((ITZM.GT.25)’.AN0.aTIM.LE,3S)) RAOAYa.6 
IF((1T1M.GT.35) .AN0.UTIM.LE.43>) RA0AY».8 
IF((in«.GT.43) .AN0.UTIM.LE.65)) RA0AY».07 
IFUTIM.GT.65) RADAY»0. 

toum-tavg 

IFU'DUM.GT.20.) T0UM»4Q.-T0UM 
IFU0UM.L7.0.) T0UM»0. 

RAOAY-TOUM/40. 

ALTMPU,J)»ALTMPU,J)+-TAVG 

itim»ioa1-lioateu,j,1 
T0UM-ALTMPU,J)/1T1M 
IT0UM»-1.33*T0U!V|+51.83 
IFUTIM.GE.ITOUM) RA0AY»0. 

CONVERT POTENTIAL AREA GROWTH TO POTENTIAL WEIGHT INCREMENT 

POWLU,J)aRAOAY*WTF*RFUST*FACL 

SPOWL«SPOWL-FPOWLU,J) 

120 CONTINUE « 

1 - 

C IF PLANT IS HEADING STEM GROWTH » 0 / 

C SUM POTENTIAL DRY MATTER ACCUMULATION IN ALL STEMS 



U72 

U73 

147A 

1475 

1476 

1477 

1478 

1479 
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1481 

1482 


C CALL ROOT GROWTH SUB TO GET TOTAL POTENTIAL ORT MATTER ACCUMULATION 1483 

C IN ROOT SYSTEM 1484 

C 1485 

KALL>0 I486 

CALL HUTGROdCALL) 1487 

C 1 488 

C PUT ON A PER PLANT BASIS 1489 

C 1490 

SPOURT»SPOWRT*2./ROWSP*POPFAC*100. 1491 

C II 1^92 

C CARBOHYDRATE DEMAND IS SUM OF DEMAND COMPOilENTS FROM ALL PLawT PARTS 1493 

C . ,f 1494 

CD-SPDWRT+SPDGLM+SPDSTM+SPOWL 1495 

C 1496 

C CSTRES <SUPLY DEMAND RATIO) IS INDEX OF NUTRITIONAL STATUS OF PLANT 1497 

C 1498 

CSTRSF = 1f> 1499 

CSTRSVal. .. 1500 

CP00L»RESC+PN 
RESC»CPOOL-SPDGRN 

IFIRESC.GT.O.) GO TO 200 1503 

CSTRSr=»<RESC+SPOGRN)/SPDGRN 1504 

RBSC=>0. 1505 

CSTRSV*0. 1506 

GO TO 220 1507 

200 RESC»RESC-C0 ‘ 1508 

IFIRESC.GE.O,) GO Tp 220 1509 

CSTRSVaQ. 

IFICD.GT.O.) CSTRSV=<RESC+CD)/CO /. 

RESC=«0. 1511 

C 1512 

C 1513, 

220 CONTINUE 1514 

C 1515 
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140 5PDSTM»SPDSTM+PDSTEM(I) AfiPWST 




SUM POTENTIAL ORY MATTER ACCUMULATION IN ALL GLUMES 

SP 06 LM«SPOGLM+POGLUM<l)‘'SPIKE<n*RFWST 

• SUM POTENTIAL DRY MATTER ACCUMULATION IN GRAIN 

SPDGRNasPOGRN+P0GRAN<I) ‘FLORET (I) ARFWST 
ISO CONTINUE 
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C CALL NITROGEH BU3G6T SUB TO GET fJSTRES, THE SUPPLY OEMANO RATIO FOR 
C NITROGEN (ANALOGOUS T0.>^STRES) 

C 

CALL NIYRO 

LEAFtfT<(0. ' 

STE'lwf-O. 

GLUNWT=«0. 

GRANWT«6. 

XTRAC«(3a - 

DISTRIBUTE DRY HATTER TO PLANT PARTS, CHANGE IN WEIGHT OF iTEH ■ 
POTENTIAL CHANGE IN WEIGHT * SUPPLY OEHANO RATIOS FOR CARBOHYDRATE, 
AND NITROGEN 

DO COO i-vnstehs 
1F<L£AF(I) .LE.Q) CO TO 340 
K«LEAF(1) \ 

DO 320 J«nK, ' 

IF(P0WL(1,J).LE.0.) go to 3U0 

C ACCUMULATE LEAF AREA AND LEAF WT 
C 

AREA«AREA+P0WL(I,J)/WTF*CSTRSV*NV 
LEAFWa,J)»LEAFW(l,-))+PDUL(I,J) •CSTRSV*NV 
XTRAC»XTRAC+P0WLCl,J)*CSTRSV*(1 ,-NV) 

300 LEAFWT«LEAFUT+LEAFW(IW) 

320 CONTINUE 
C 

C ACCUMULATE STEM WT 
C 

340 STEMWa)aSTEMH(I>+POSTEM(n*RFWST*CSTRSV*NV 
XTRAC»XTRACtP0STEM(l)‘rRFUST*CSTRSV*{1.-NV) 

STEMUT-STEHWT + STEMWa) 

C 

C ACCUMULATE WEIGHT IN THE GLUMES 
C 

GLUMWa)“GLUMWai+P06LUM<I) *RFWST*CSTRSV*NU *SPIXE (1) 

XTRAC»XTRAC+P0GLUM<n*5PlXEa)*RFWST*CSTRSV*(1,-NV) 

GLUMWT-GLUMWT+GLUMWa) 

C 

C ACCUMULATE WEIGHT IN THE GRAIN 
C 

GRANW(r)aGRANWtl)>PDGRAN(l)*RFWST*CSTRSF*NF*FLORET(l) 
XTRAC«XTRACfP0GRAN(I)*FL0RETa)*RFUST#CSTRSF*(1 ,-NF) 
GRANUTaGRANWT+GRANWa) 
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40Ci COHtlNUE 
C 

C CAU ROOT 6R0WTH SUB i OISTRIBUTE DRY “ATTER TO ROOTS. 

C 

RCH20«SP0WRT*CSTRSV*NV 

XTRAC»XTRAC+SP0MRT*CSTRSV*(1.-NV> 

KALL«1 

CALL flUTORO(KALL) 

C " 

C AOO CARBOHYDRATES TO RESC THAT WERE NEEDED BUT NOT USED 
C BECAUSE Of NITROGEN STRESS 
C 

RESC-RESC+XTRAC 

C 

C CALCULATE VEGWT & PLANTW 
C 

PLANTWaLEAFWTfSTEMWT+GLUHWT+GRANWT+RobTWTtRESC 
vegut«plantw-granwt 

DETERMINE MAX UAf. J.ENCTH BY USING LEAF WEIGHT. THIS VALUE IS 
USES TO DcTERniN^'i 55 LIGHT INTERCEPTED 

XMAXLWaQ. 

00 420 I»1#NSTE,;iS 
K»LEAFCI) 

IF(X.LE.O) GO 7b 430 
DO 420 J«1/X 

IFCLEAFW(I,J).GT.XMAXLU) XMAXLWsLEAFWa,J) 

420 CONTINUE 
430 CONTINUE 

XL£AFL»2.15*XMAXLW/WTF+1. , 

IF(XLEAFL.GT.13.9) XLEAFL=.74*XMAXLW/WTF+9.44 
C 

C COMPUTE NEW LEAF AREA INDEX 
C 

LAI»AREA/P0PFAC7100. 

C 

c 

RETURN 

END 


‘>561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

M tta A 

0 70 1 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 





103 




/ 


ORIG/NAU PAGE 
OF POOR QUALITVI 


SUBROUTINE NITRO 

c * • 

C * NITRO SUBROUTINE A * 

C * * 

i; ****#*««**«**«•** ** «*l»**«rik** **«>**#*'#*»«#*««*****«******#*'*** 

C 

REAl I.EAfWT#lEAFCN<,>;L#KS,ICR,kG,Jl.,JS,JR^J6#JC1,LeAFRS, 

. NF,NSTRES,HV#NPOOUAEAffi1 
C 

COMNON /CONS / ROOTCN#STEMCN,LEAfCN,3LUNCN,6RAMCN 

COMMON /NIT / NPOOL^REON,ROOTN,SU£AFN,STEMN^CRANN,GLUMN#PUANTN 

COMMON /NITCON/ 4t^KU»,JR,<R,JG^»;G<,JS#KS,JGl 

COMMON /RESV / F2AEAFfiS^R00TRS/STEMRS/RESN>RESC 

COMMON /WEIGHT/ UEAFWT^PLANTW,R00TWT/STEMWT,GLUMWT#GRANVIT/VE6WT 

COMMON /STRESS/ CSTRSV^ CSTRSF/ Hf , NSTRES^ NV^ WSTRSO, WSTRSN, 

. STRSO^STRSN^FACL 

COMMON /SPD / SPOWl#SPOSTM^SPOWRT/SPOGl.M,SPOGRN 

COMMON /UPS / SUPN03,UPN03 

c 

NSTRES«1. 

NV*1 . 

NF»1. 

C_..v> 

C CALCULATE NITROGEN RESERVES IN EACH TISSUE FROM T1S,'UE NITROGEN, 
MINIMUM POSSIBLE LEVELS i AN AVAILABILITY FACTOR <F2> 

L£AFRS«<SLEAFN-<L*LEAFWT)*F?. 

STEMRS»(STEMN-<S*STEMWT)*F2 ,, 

ROOTRS«(ROOTN-NR*ROOTWT)*FE 
GLUMRS»<GLUMN-<G*GLUMWT)«F2 
IFCLEAFRS.LT.a.) LEAFRS»0. 

ifcstemrs.lt. a.) stemrsso. ^ 

IFCROOTRS.lt. 0.) ROOTRS-0. 

IFCGLUMRS.lt. 0.) GLUMRS^O. 

C . 

C CALCULATE TOTAL NITROGEN RESERVE 
C 

resn-leafrs^-stemrs+rootrs+glumrs 

c 

C the nitrogen pool AVAILABLE IS SUM OF NITROGEN TAKEN UP TODAY +■. 

C RESERVES 
C 

NP0OL»SUPN03+RESN 

C , 
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FOR {PROPOSED) DRY Wf GROWTH OF 


h 


J} 


CAUCULATE NITROGE'^ REQUIRED 
EACH ORGAN 

L£AFR1»JU*SPDWL*CSTRSV 
STE'1R1»JS*SP0ST-'1*CSTRSV 
R00TR1»JR*SPDWRT*CSTRSV 
GLUMRtaJG*SP0GLf1»CSTRSV / 

GRANR1»JG1*SPDGRN*CSTRSF 

CALCULATE TOTAL REQUIREMENT OF NITROGEN FOR GROWTH 
REQN«LEAFR1+STEMR1+R00TR1+GLUMR1 

IF NITROGEN REQUIREMENT FOR GROWTH OF ^iRAlN & VEGETATIVE PARTS > 
NITROGEN POOL^ BUT < REQUIREMENT FOR GROWTH OF GRAIN ALONE THEN GET 
FULL GRAIN GROWTH & AMT LEFT GOES TO GROWTH OF VEGETATIVE PARTS 
(NF«1 t NV IS REDEFINED). IF REQUIREilENT > FOR GRAIN ADONE THEN 
NO VEGETATIVE GROWTH & GRAIN GROWTH REpUCEO (NF IS REDEFINED, NV«0> 

IF<(REQN+GRANR1).LE.NPOOU GO TO 60 zj/ 

NSTRES»NP00L/(REQN+GRANR1> 

IF(GRANR1 .GT.NPOOL) GO TO 40 
NV»{NPOOL-GRANR1)/REQN 
GO TO 60 
40 NV»0. 

NF»NP00L/GRANR1 ' 

60 CONTINUE 

IF NITROGEN REQUIREMENT IS = OR < NITROGEN POOL, THF.N EACH ORGAN 
RESERVES whatever IS REQUIRED FOR GROWTH ~ 

SLEAFNaSLEAFN+LEAFR1*NV / 

STEMN=STE,'1N+STEHR1>NV 
R00TNaRO0TN+R0OTR1*NV 
GLUMN=GLUMN+GLUMR1 *NV 
GRANN=GRANN+GRANR1*NF 

CALCULATE TOTAL PLANT NITROGEN CONTENT FOR CHECtJ ON THE BALANCE 

PLTN»SLEAFN+STEMN+ROOTNtGRANN+GLUMN 

DIFFERENCE BETWEEN NEW & OLD NITROGEN IN SYSTEM ADDED TO THE DAYS 
UPTAKE REPRESENTS EITHER ADDITION OR WITHDRAWAL FROM RESERVE 


XTRAN»(SUPN03+PLANTN)-PLTN 


1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 
1661 
1662 

1663 

1664 

1665 

1666 
1667 
1668- 

1669 

1670 

1671 

1672 

1673 

1674 

1675 
1 6f 6 

1677 

1678 

1679 

1680 
1681 
1682 

1683 

1684 

1685 

1686 
168? 
1688 


ADO TO OR SUBTRACT FROM RESERVES IN PROPORTION TO WT OF VARIOUS 
ORGANS 

IFIXTRAN.LT.O.) GO TO 80 
SLEAFN=SLEAFN+XTRAN*(LEAFWT/VEGWT) 
STEMNaSTEMN+XTRAN*(STEMWT/V£GWT) 

ROOTN»ROOTN^-XTRAN*<ROOTWT/VEGWT) ' 

GLUMNa6LUMN+XTRAN*<GLUMWT/VEGWT) 

GO TO PO 

80 IFCRESN.LE.O.) GO TO 90 

SLEAFNaSLEAFN+XTRAN*(LEAFRS/RESN) 

STEMNaSTEMN + XTRAN*(STEHRS/RESN): ° 

ROOTNaROOTN+XTRAN*(ROOTRS/RESN) 
GLUMN»GLUMN-t-XTRAN*(GLUFiRS/RESN) 

90 CONTINUE 
C 

C CALCULATE LEAF NITROGEN CONCENTRATION AS 7. OF LEAF WEIGHT 
C 

UEAFCN=*SLEAFN/LEAFWT 

C 

C TO’AL THE PLANT NITROGEN 
C 

PLANIN=SLEAFN + ROOTN + STEMN't-GRANN+GLUMN 

RETURN 

END 
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SUBROUTINE MORPH 

C »*#*****«•*****:**** ****'#*****'****'*«**i******«****«'***<r *•«**#« 

C * * 

C * MORPH SUBROUTINE * 

C o * 

C ******************************** ***** •*#*« **• * #^«* 

C 

REAl. INT,LAI,LATU0E,Nf,NV,NSTR£S,NTTTYM*MH20,LEAfvT/LEAFRS, 

. LEAFWAEAFCN/Jt.*>:t.*JR*KR*JG,KG,JS^):S,JG1^NP00L 
INTEGER OAYNUM*TILLER#DIFREN/BOOT,HEAO,ANTHES/SPl1fE/FLO!J5T; 

,, . SPRING, STEM8G,SYEMN0,SRDAY*TBSR, SECOND, TBT,TBL*STEMJ*0H00E*AN.THN0 

C|l ^ 

DIMENSION NODE<1^),TDES(10) 

C / 

COMMON /CONS // ROOTCN,STEMCN,LEAFCN,GLUMCN,GRANCN 
COMMON /FRuiT / SPIKE(10),FLORET(10) 

COMMON /GEOM / D, G, NK, Nl, RTP1, RTP2, StF, THRLN* « 

COMMON /GROW / LEAFW(10,6),ST£MW(10),GLUMW(10),GBANW(10) 

COMMON /.LASTAO/ LTD AY < 1 U) ,LL0AT (1 0 > , ALTMP <1 0,6) ,ATTMP < 1 0) 

. ,ApTMP(10) 

COMMON /lIGHT / OAYLN6 ,OAYNUM*UATUDE,OAYTYM>jNYTTYM,IOAY,IPRNT 
COMMON /LOST / UTSLFD 
COMMON /MATR / KRLC20), LR 

COMMON /NIT / NP00L,REQN,R00TN,SLEAFN,STEMN,GRANN*GLUMN,PLANTN 
COMMON /NITCON/ JL,KL,JR,KR,JG,KG,JS,KS,JG1 
COMMON /PARTS / LEA F (1 0) ,LIDATE (1 Q ,6 ) ,N TILL (1 0) ,NSTEMS 
COMMON /PHYTIM/ TILLER, JOINT(IO) ,DIFREN,800T(10) ,HEAO<10) , 

. ANTHES(IO), SPRING, ACCOEG 

common /pop / pn,pstano,ptsn,ptsreo,rescf,pplant,resp,spn 

COMMON /PS / PSIS(20/6) 

COMMON /RESV / F2,LEA!’RS,ROOTRS,STEMRS,RESN,RESC 
COMMON /RUTWT A RCH20, ROOTS, ROOTSV C2Q,6) , RTMT<20,6,3) 

COMMON /SIZES / ROWSP,LAI,POPFAC,XLEAFL,AREA 
COMMON /SOLAR / INT, RI, RN> PNFAC 
common /SPD / SPOWL,SPt3STM,SPOWRT,SPOGLM,SPDGRN 
COMMON /SROOT / SRAVG,SRDAY, SECOND 

common /STRESS/ CSTRSV, CSTRSF, NF* NSTRES, NV, WSTR:JD, WSTRSN, 

. STRSD,STRSN,FACL 

COMMON /TEMP / 0TAVG<7), TAVG, TOAY, TKAA, TMIN, TNYT 
COMMON /TSDN / TS0ILO(20), TSOILNIZO)* TS0LAV<2) 

COMMON /UPS / SUPN03,UPN03 

COMMON /WEIGHT/ L6AFWT,PLANTW,R00TWT,ST6MUT,GLUMyT,GRANWT,VE6WT 
COMMON /WETS / MH20,PSI AVG,PSIMAX ,RAIN,PSIL 
C 

ATMP-TAVG 
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1F(AT.1P.LT.0.) ATMP»0. 

ACC0,6G»hCC0EG*ATMP 

IFpCCOEGiLT.100.) GO TO 100 

IF{ACC0£G.GT.7SQ.) GO TO AO 

:F<lDAy.LT. TILLER) TILLERalOAY // 

lF(ACCoeG.GT. 315 ..AH 0 .I 0 AY,.LT. 0 SFREN>\ 0 IFREN 3 rOAY 

GO TO 100.. ' " '' 

IF(ACCDEG.GT.1090.) GO TO 60 

IFClDAY.GT.JOINTtI)) GO TO 100 

J0INT(1)»IDAY 

STE«BG»1 

STEMN0»0 

DO 50 1*1,10 , 

NOOETDaO 
CONTINUE 
GO TO 100 

IF(ACC0EG.GT.12Q0.) GO TO 80 - 
IF<IOAY.GT.BOOT(1)) GO TO ICO 
BOOT<1)=IOAY 
NSTMH»1 

00 70 I*1,N3TEn3 
IF(NODE(I) .LT.7) GO TO 70 
NST"1H=I 

I01FF=J01NTCI)-30INT<1) 

B00Ta)*800TI1)+I0IFF 

CONTINUE 

GO TO 100 

IFdOAY.GT.HEAOCD) GO TO AGO 
H£A0(1)=IDAY 
00 90 I»1,NSTMH 
IDIFFaJOlNTCD-JOINTd) 

HEAD(I)aHE'«0C1)+lDIFF ^ 

SPIKEIDalSPLTS 
CONTINUE 
GO TO AOQ 


CONTINUE 

SRAVG=SRAV6>ATnP 

TBSRa10.-.5*(SRAVG/FL0AT(IDAY-SR0AY)) 

IF(TBSR.LT.2) TBSRnZ * // 

F H20 IS OK AND ENOUGH TIME HAS PASSED SINCE LAST SECONDARY ROOT 
JAS FORMED, THEN WE GET A NEW ONE 


0 


li r 
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IF<(IOAY.LTiT0SR+SROAY).OR.(P5IAVG.UT.-1.)) GO TO 120 

SROAY»IOAY 

SRAVG»0. 

SECONOaSECONO-^‘1 

C " 

C CHECK ON NE>4 LEAVES 

c . ■ 0 

120 CONTINUE 

!)0 no I»1,NSTEMS 
APTHP(I)*APTMP(I)+ATMP 
IFtUEAF (I) .GE.6) GO TO 140 
ATTMP(I)«ATTMPa)+ATMP 
V T8L«9.-ATTHPa)/aOAY-LLDAVa))/S. 

IF(TBL.LT.4) TBU-4 
C 

C IF SUFFICIENT TIME HAS PASSED SINCE LAST LEAF FORMED t 
C THERE ARE < 6 LEAVES ON THE STEM, THEN A NEW LEAF IS 
C FORMED 

C / 

IFaLDAYm + TaL.GE.lDAYI GO TO lAQ - 

LLOAY(n»IDAY 
LEAFCI)»L£AF<I)+1 
LI0ATE(1,LEAFC1))»10AY 
ATTMP(I)»0. 

ALTMP(I,LEAF(I))=0. 

140 CONTINUE 
C 

C IF THE PLANT IS JOINTING' OR BEYOND THEN TILLERING IS COMPLETE 
C 

IFdOAY.GE.JOINTd))' GO TO 300 
IFCCIOAYiLT. TILLER) .OR. (NSTEMS.GE.ro)) GO TO 170 
C 

C IF THERE ARE < 10 STEMS, ENOUGH CARBOHYDRATES ARE AVAILABLE 
t i SUFFICIENT TIME HAS ELAPSED SINCE LAST TILLER WAS FORMED 

C THEN ANOTHER TILLER IS FORMED 

C 

JsNSTEMS 
DO 160 I»1,J 

TBTa3O.-APTMPa)/<I0^Y-LIOATE(NSTEMS,1) ) 

IFCTBT.LT.S) T8T»S 
IFCNSTEMS.6E.10) GO TO 170 
IF(L£AFa).L£.2) GO To<i 160 
IF(IOAY.LT.LTOAY(I)+T0T) GO TO 160 
IFTNTILLCI) .GE.3) GO TO 160 
NTILL(I)»NTILL(I)+1 


1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1818 
1819 
1620 
1821 
1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 
1633 

1834 

1835 

1836 

1837 

1838 

1839 


1840 

1841 

1842 


II , 

••A 



I. 
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NSTErtS«NSrEM5+1 1843 

LEAF (NSTEMS)«1 

L10ATE<NSTE'1S/1)»I0AY 

UEAFU<NSTEMS,1)*0. 

LT0AY(n«I0AY 1844 

IF<NSTEMS.LE.3) GO TO 160 18AS 

IFCPSIAVG.LT.-I.) GO TO 180 1846 

IF(LEAFCN.LT..a3> GO TO 180 1847 

IF<CSTRSV.LE..99) GO TO 180 

150 CONTINUE 1851 

170 CONTINUE 1852 

C 1853 

C IF PAST FIRST OAY OF SPRING, LEAF OR SOIL H20 POTENTIAL 1854 

C. IS < REQUIRED & A STEM HAS < 4 SECONDARY ROOTS, THEN 1855 

C ABORT THE LATEST TILLER 1856 

C 1857 

IFdOAY.LT. SPRING) GO TO 220 1858 

IFaP3IL.G£.-2Q.).0R.CSEC0N0/NSTEMS.GE.4)) GO TO 220 1859 

ISO LL0AY(NSTEMS)»0 

LEAFlNSTEMSJaQ 1861 

NriLL(NSTEMS)»0 

STEMW{NSTEMS)»0 1862 

ATTMP<NSTEHS)»0. 

APTMP<NSTEMS)='0. V 

C = 1864 

DO 210 1»1,6 1865 

ALTMP<NSTEMS,I)aO. //, 

LI0ATE(NSTEHS,I)»0 1866 

LEAFW<NSTEMS,I)aQ 1867 

210 CONTINUE 1868 

C , 1869 

C ^ 1870 

NSTEMSaNSTEMS-1 1871 

C 1872 

C 1873 

220 CONTINUE 1874 

C 1875 

C IF NOT DAY, OF DIFFERENTIATION RETURN 1876 

C 187,7, 

IFdOAY.NE.DIFREN) GO TO 600 187' \ 

C 1879' 

C DETERMINE THE POTENTIAL NUMBER OF SPIKELETS PER SPIKE 1880 

C 1881 

ISPLTS=22 1882 

DUM1aRESC/(RESC+LEAFWT) 1883 
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DUM2a10.*BUMl+.5 
l?"<0UH2.GT.1 .) DUM2=1. 
ISPLTSalSPLTS*0UM2>.5 
DU,12»15.*l.EAfCN + .5 
IF<0Ufl2.GT.1.) 0UM29)1. 
ISPLTS«1SPLTS*0UM2 + ,|5 
GO TO 6Q0 


If JOINTING IS X0 ;»^'IeTED THEft^^TURN 
300 CONTINUE 

IF<I0AY.GT.J0INT(1)+15> GO TO 600 
IF(STENNO.GE.IO) GO TO 340 

DETERMINE THE NUMBER OF STEMS ALLOWED TO BEGIN JOINTING 
TODAY 


DUM1a(WSTRSD*DAYTVM+WSTRSN*NYTTYll)/24. 

DUM1»DUM1*.4+CSTRSV*,35+NSTRES*.2S 

STEMJa'O, li „ 

IF(0Um'1 IgE..3) STEMJ=«1 

1FIDUM1 .GE..75) STEI1J»2 . - 

IFC0UM1 .GE..99) STEMJ»3 

mark the FIRST & LAST STEMS TO BEGIN JOINTING TODAY 

IFIST-EMJ .LE.O) GO TO 340 
STEMND=STEMBG+STEHJ-1 
IF\\STEMND»GT.10> STEMNDalO 


ELON^/ATE THE FIRST JOINT FOR ..EA(|H STEM BEGINNING JOINTING 

DO 330 IsSTEMBG,STEMND \ 

IF<LEAF<I) .6E.6) GO TO 320 
STEHNDsSTEMBG-2*! 

GO TO 340 

320 N00E<I)=1 ^ 

JOINTCI)=IDAY 
330 CONTINUE 

STE,/ DOES NOT JOINT BEFORE IT HAS SIX LEAVES 


340 lJpSTEMB6-1 

f;f (STEMBG.LE.STEMNO) STEM9G=STEMN0 + 1 


I\f(L.LE.O) GO TO 600 


0 


r» r> o r> 
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IFCL.GT.IQ) l.»n 
IF(PSIL.tT.-10.) GO TO 600 
ONOOe»2 

C ^ 

C )/0R STEMS PREVIOUSUT BEGAN JOINTING THEN 0ETERMINE"IF 
C ADDITIONAL NODES ARE TO BE ADDED TODAY 
C 

DO 380 lal/i 
NOD£(I)aNODE(I}-^DNODE 
IF(N0DE<I).GT.7) N0DE(I)»7 
380 CONTINUE 
GO TO 6C0 

OETERHINF DAY OF ANTHESIS t IF NOT WITHIN THE PERIOD 
THEN RETURN 

/ 

AOO CONTINUE 

IFCACC0EG.lt. 1300.) GO TO 600 
IFCANTHES(I).LT.IOAY) GO TO >440 
ANTHESC1)»IDAY 
DFAC».25 

DO 420 r,a1,NSTMH 
IOIFF=JblNT(I)-JOINT<1) 

ANTHESCI>aANTH£S(1)>IDIFf 

TOES Cl) »0. // 

FL0RETCI)»SPIIiECl)*4 
420 CONTINUE 


440 CONTINUE 

DO 460 lal/NSTMH 

IFCCIOAY.LT.ANTHESCi)) .OR. CI 0AY.GT.ANTHeSCI)+3)) GO TO 460 
C 

C DETERMINE FRACTION OF FLORETS fef/SSICATEO DUE TO LOW LEAF WATER 
C POTENTIAL i WIND 
C 

0ES=C-.04)*PSIL“.6 
IFCOES.lt. 0.) DES=0. 

IFC0ES.GT.1 .) 0ES = 1. 

TDESCl)=OES*OFACtTOESCI) 

IFa.0AY.NE.ANTHESCI)+3) GO TO 460 
C 

C ELIMINATE THE OESSICATED FLORETS FROM THE ARRAY 
C 


1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 



FLORETC I)aFL0RETCi)-TDESi]I)»FL0RETCI) + .5001 
IFCFLORETCI) .GT.60) FL0RETCI)a60 
IFCFLORETCD.LT.IO) FC0RETfI)a10 

1974 

460 

CONTINUE 

1975 

600 

continue ^ 

1976 


RETURN 

1987 


END 

1988 
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SUBROUTINE RUTGRO(KALL) ' ", 

C*** 'll ****************** **#***•* ***!»*«'********** *★*•*<♦*★★* »**#****** 

C THIS SUBROUTINE CALCULATES THE GROWTH <IN TERMS OP ORT ★ 

HATTER) OF ROOTS IN EACH CELL FOR THE OAY. FIRST, THE POTENTIAL* 


GROWTH (POURT) FOR THE EXISTING SOIL WATER POTENTIAL (PSIS) 

AND TEMPERATURE (TSOILO & TSOILN) IS CALCULATED FOR EACH 
SOIL CELL, BASED ON THE WEIGHT OF ROOTS CAPABLE, OF GROWTH 
IN EACH CELL (RTWTCG). THEN THE ACTUAL GROWTH ' IS \ 

C DETERMINED, BASED ON THE CARBOHYDRATE .5UPPLY FOR ROfi'T GROWTH 
C AND THE potential GROWTH FOR THE CELL. THE ACTUAL GROWTH 
C 0CCURIN6 FOR A GIVEN CELL MAY OCCUR WITHIN THE CELL OR IN 
C THE CELLS TO THE RIGHT OR LEFT & BELOW. 

C GROWTH IN THE A AVAILABLE CELLS IS BASED ON RELATIVE 
C WATER POTENTIALS OF THE FOUR, WITH A HEAVIE|-WM 
C GIVEN TO DOWNWARD GROWTH. '' f ,, 

C THIS SUBROUTINE DRAWS HEAVILY ON THE lOEA;^ AND THEORIE^JOF 
C OR. M. G. HUCK, USOA-ARS, AUBURN, ALA. THIS IS ESPECIALLY 
C AS regards sloughing. C. F. *A MODEL FOR SIMULATING ROOT 
C GROWTH AND WATER UPTAKi n. G. KUCK, F. H. T. PENNING OE 
C YRIES,, AND M. G. KEIIER. IN PRESS. 

C ***** *#^'* ******** ********************************************.***** 

p/aL INT,LATUO£,LEAFWT,NF,NV*NYTTYM,LAI,NSTRES,«H20 
dimension OvJRT(20,6) 

INTEGER DAYNUM 

COMMON /GEOM / D, G, NK, NL, RTP1, RTP2, SLF, THRLN, V 
COMMON /LIGHT / DAYLNG,0AYNUM,LATU0E,DAYTYM,NYTTYH, IDAY, IPRNT 
COMMON /LOST / WTSLFO 
COMMON /MATR / KRL<2D), LR 

COMMON /POP / PN,PSTAN0,PTSN,.PTSRE0,R£SCF,PPLANT,R£S*^,SPN 
COMMON /PS / PSIS<20,6) 

COMMON /ROOTIM/ R7IHPD (20,6) ,SNAME (3 ) ,TSTBD (9,20) ,INRT,MRT . 

, ,TSTIMP(9,20),GH20C(9),FACR // 

COMMON /RUTWT / RCH20, ROOTS, ROOTSV (20,6) , RTWT(20,6>3) 

COMMON /SIZES / ROWSP,LA I,POP F A^ ,XLEA FL, AR EA 

COMMON /SOILIO/ 0 1 F FO (5) , THETAO (5) ,BETA (5 ) ,SOEP';^ H (5) , THETAS ( 5 ) , 

. THETAR(S),AIRDR(5) ,ETA(5)*FLXMAX'(5),B0(5) 

COMMON /SOLAR / INT, RI, RN , PNFAC 

COMMON /SPD / SPOWL,SPDSTM,SPOURT,SPpGLM,SPOGRN 

COMMON /STRESS/ CSTRSV, CSTRSF, NF, NSTRES, NV, WSTRSO, WSTRSN, 

. STRSO,STRSN,FACL * 

COMMON /TEMP / 0TAVG(7), TAVG, TDAY, TMAX, THIN, TNYT ,i 

COMMON /TSDN / TS0IL0(20), TS01LN(20), TS0LAV(2) 

COMMON /WEIGHT/ LEA FWT ,PLANTW,R00TWT ,STEHWT ,GLUMWT,GRANUT,VEGUT 
COMMON /WETS / MH20,PS I AVG ,PS 1 MAX ,RA 1N,PSIL 
C 


1989 

00191990 

00191991 

00191992 

00191993 

00191994 

00191995 

/10191996 

00191997 

00191998 

00191999 

00192000 

00192001 

00192002" 

00192003 

00192004 

Q019200S 

00192006 

00192007 

uQlvzuQo 

00192009 

2011 

2912 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2924 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 
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IF(tCALL.EQ.I) GO TO 2 " 2034 

00 40 r»1,20 2035 

00 40 Jb1#6 2036 

0WRT<)t^J)»O. 2037 

R00TSVU,J)a0. // , 2038 

40 CONTINUE 2039 

RUTWT * ROOTWT " NASA2040 

C G - weighting FACTOR FOR GEOTROPISrt ( THE PREFERENCE OF ROOTS MASA2041 

C TO GROW OOWNWARO). NASA2042 

C SUF - SLOUGHING FACTOR, ' HASA2043 

C THRLN -* THRESHOLD WEIGHT TO GIVE LENGTH OF ROOTS REACHING NASA2Q44 

C OPPOSITE BOUNDARIES OF CELL FROM WHICH GROWTH ORIGINATED. NASA2045 

SPOWRT » 0. NASA2046 

PSIMAX » -50. NASA2047 

00 1 LATER » 1 , LR NASA2048 

XR a XRL<LAYER) NA5A2049 

DO 1 (COLUMN a 1, XR NASA20S0 

OWRT(LAYER^KOLUHN)aRTWT(LAYER,XOLUMN,1)+RTWT^LAYER, (COLUMN, 2) 2051 

C ROOT WEIGHr CAPABLE OF GROWTH IN THE CELL, GM. NASA2052 

C THE 25 DAY LIMIT IS BASED ON ANALYSES FOR STEM GROWTH. C. F. NASAZC53 

C 3AXER, 0. N. ET, AL. (1973) 'AN ANALYSIS OF THE RELATION BETWEEN NASA2054 

C PHOTOSYNTHETIC EFFICIENCY AND YIELD IN COTTON'. 1973 BELTWIDE NASA205S 

C COTTON PRODUCTION RESi CONF. PROC. NASA2056 

IF(PSIS(LAYER,XOLWMN) .GT. PSIMAX) PSIMAX=PS1S(LAYER,K0LUMN) NASA2057 

1 CONTINUE ■ >v NASA2058 

CALMAX a 1980.7 + PSlMAX*(797.5a+PSlMAX*(181.l81+psiMAX*10.96"f9)) NASA2059 
CALAVG * 1980.7 + PSlAVG*(797.5a+PSlAVG*(181.181+PSIAVG*10.9619))NASA206Q 

CALTSD a TDAY*(-71.3947+(T0AY*1. 22793)) NASA2061 

CALTSN a TNYT*(-71.39.47+(TNYT*1. 22793)) NASA2062 

WSTRSO a CCALAVG^CALTS0 >rm*<-O.S12136-O.O7S977*PSIAVG) + NASA2063 

. (0.73493*PSIAVG*T0AY)) / 730. NASA2064 

WSTRSN a (CALAVG4-CALTSN+17.92476 + PSIAVG*(2. 764195 + NASA2065 

. 0.73493*TNYT)) / 730. =. NASA2066 

IF(WSTRSD.LT.O.OOOI) WSTRSD a 0.0001 ' NASA2D67 

IF(WSTRSO.GT.I.O) WSTRSO » 1.0 NASA2068 

IFCWSTRSN.LT. 0.0001) WSTRSN a 0.00C1 NASA2069 

IF(WSTRSN.GT.1i;0) WSTRSN a 1.0 NASA207Q 

0AYL1 'a OAYLNG / 24 . NASA2071 

DAYL2 a (24. -OAYLNG) / 24. ' NASA2Q72 

TSNL a TS0ILN<4) . 2075 

TSOL a TS0IL0(4) \ 2076 

IF(TSDL.GT.3Q.)TS0L*30. . \ NASA2077 

IF(TSNL.GT.30.)TSNL=30. \ NASA2Q78 

DO 24 LAYE,R a i, uR V NASA2073 

LP1 a layers 1-(LA.YER/NL) I NASA2Q74 
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CALTSO ■ IS0L*<-71 .3947t<TS0L*1 .2^793)) 

CALTSN ■ TSNL*(-71.3947+(TSNL*1. 22793)) 

STRSD ■ (CALMAX ♦ CAUTSO + RN*<-0.512136-0^078977*PSIMAX) 4- 
. (0.73A9:5*PS1MAX*TSOL)) / 730. 

STRSN * (CALMAX t CALTSN + 17.92476 + PS IMAX* (2,764195 * 
i 0.73493*TSNL)) / 730. 

IF(STRSO.LT. 0.0001) STRS6 ■ 0.0001 
IFCSTRS0.GT.1.) STRSD ■ 1. t 
IF CSTRSN.lt. 0.0001) STRSN * "U.000l 
IF(STRSN.GT.1.) STRSN - 1. 

C ROOTXP PROVIDES ROOTS SAME EXPONENTIAL GROWTH POTENTIAL AS YOUNG 
C BOLLS. DIO NOT HAVE ROOT GROWTH DATA UNDER LUXURY CH20 SUPPLY. 
ROOTXP ■ ((-0. 2120865+0. 016079*TSOL)*DAYLl + v\ 

. (-0. 2120865+0. 016079+TSNL)*DAYL2) 

IFCROOTXP.lt. FACR) ROOTXP«FACR 
CALL RIMPED 
XR a XRL(LAYER) 

DO 37 KOLUMN * 1^ KR 

C POTENTIAL DELTA WEIGHT OF ROOTS FOR THE CELL, GM. 
jCPi M ti0LUMN+ 1- CKOLUMN/NK) 

KM1 ■ KOLUMN- I’ + CI /KOLUMN) 

TEST « RTIMPDCLAYER, KOLUMN) 

IFCTEST.lt. RT1MPD(LAYER,KM1)) GO TO 41 
TEST * RTIMPDCLAYER, KM1) 

41 IF(TEST.LT.RTIMP0CLAYER,KP1)) GO TO 42 
T2ST a RTIMPDCLAYER, KP1) 

42 IFCTEST.lt. fit, IMP0CLP1, KOLUMN)) GO TO 43 
TEST a RTIMP0CLP1, KOLUMN) 

43 RTPCTa C104.6 - 3.S3*TEST/1 .0216)*.01 
IFCRTPCT.GT.1.) RTPCTal. 

IF(RTPCT.LT..S) RTPCT-.S 

C PDWRTCLAYER,KOLUMN)a P0WRTCLAYER,K0LUMN)*RTPCT 

C REDUCED POTENTIAL GROWTH BY/WEAKEST SOIL STRENGTH CELL 

SPDWRT a SPOWRT + OWRT CLAYER, KOLUMN) *ROOTXP * RTPCT ' 

C SUM OF POTENTIAL DELTA WEIGHT ROOTS FOR ALL CELLS, GM. 

37 CONTINUE 
24 CONTINUE 

WSTRSD * (STRSD + WSTRS0)/2 
USTRSN a (STRSN + WSTRSN)/2 
RETURN '' 

*2 CONTINUE 

RGCF a RCH20 / SPOWRT 

C RCH20 AND SPOWRT ARE IN GRAMS / PLANT AFTER RETURN FROM MAIN. 

C ROOT GROWTH CORRECTION FACTOR. RATIO OF AVAILABLE CARBOHYDRATE 
C TO SINK STRENGTH. 

V 


NASA2079 

NASA2080 

2081 

NASA2082 

2083 

NASA2084 

2085 

2086 

2087 

2088 
NASA2089 
NASA2090 
HASA2091 
NASA2092 

NASA2093 

NASA2094 

NASA2095 

NASA2097 

NASA2098 

WASA2099 

NASA2100 

NASA210,') 

NASA2102 

NASA2103 

NASAZ104 

NASA21QS 

NASA2106 

NASA2107 

NASA2108 

NASA2109 

NASA21ia 

NASA2111 

NASA2113 

NASA2114 

NASA2115 

2116 

2117 

NASA2118 

NASA2119 

NASA2120 

NASA2121 

NASA2122 

NASA2123 
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00 5 LAVen • 1, UR J) 

KR » KRtaAYEfl) 

00 5 KOLUMH • 1, KR 

IFdOAY.UE.S) GO TO 7 . 

IF(I0AY.LE.12) GO TO 6 

RTWraAYER,KOLUMN/3) » RTWT (UAYER^KOLUJIN/S) ♦ RTP2 * 

. RTUTU-AYER, COLUMN, 2) 

RTWTaAy£R,)C0LUMN,2) ■ RTWT (LAYER, K0LUMN>2) * (1.-RTP2) 
i CONTINUE 

RTWT(LAYER,KOLUHN,2) « RTWT (LAYER,K0LUMN,2) * RTP1 * 

. RTWT<LAYER,);OLU«N,1> 

RTyT(LAYeR,KOLUMN,1) « RTUT (LAYER, KOLUHN,1 ) * (ti-flTP1) 

7 OWRT(LftYER,KOLUHN) » RGCF * OWRT (LAY ER,K0LUMN) *R00TXP * RTPCT 
NOTE THA'' RGCF CAN BE MODIFIED BEFORE USE ABOVE. 
delta WEIGHTXA boots, actual, FOR THE ;2ELL, G« OM. 

REDUCED FROM PDWRT DUE TO LACK OF CARBo'RYORATE . 
i CONTINUE 

LRT » LR 

NLR » LR Vl 

DO 8 L*1^NLR 

LDC » G * (1-L/NL) 

LDl a L ♦ 1 - (L/NL) I 

KR a KRL(U / 

DO 9 Ka1,KR 
KR1 a )(;,+ 1 -(K/NK) 

KL1 a i<; - 1 +(1/K) 

IRC a 1 - (K/NK) 

LC a 1 - (1/K) 

IF(RTWT(L,K,^1)+RTWT(L,K,2) .LT.THRLN) GO TO 10 
STR1 a (104.6 - S.S^aRTlMPOCL.KI/l .0216)*.Q1 
IF(STR1 .GT.1 .) STR1 a i . 

IF(STR1 .LT.O.) STR1 a 0. 

STRL a (104.6 - 3.'53*RTIMP0(L,KL|)/1.a216)*.0l 
IF(SrRL.Gt.1.) STRL a i. 

IF(STRL.LT.O.) STRL = Q, 

STRR a (104.6 - 3.53*RTIMP0(L,KR1)/1 .0216);A.01 
IF(STRR.GT.1.) STRR *1. 

STHft » 0« 

3.53»RTIMPO(L91,K)/1*0216)*.01 
STRO a 1. 

S T R 0 a 0 . ^ ^ /[ 


IF(STRR.LT.O.) 
STRD a (104.6 
1F(STR0,,GT.1 .) 
lF(STROiLT.O.) 




SRWP a (1./P,SIS(L,K)**3+IRC/PSIS(L,KR1)aa3+L0C/PSIS(LDl,K)**3 + 


N/5/SA2124 
N/jSA2125 
NASA2126 
NASA2127 
NASA2128 
NASA2129 
NASA2130 
NASA2131 
^ASA2132 
NASA2133 
NASA2134 
NASA2135 
'2136 
NASA2137 
NASA2138 
NASA2139 
NASA2140 
NASA2141 
NASA2142 
NASA2143 
NA5A2144 
NASA2145 
NASA2146 
NASA2147 
NASA2148 
NASA2149 
NASA215Q 
NASA 21 54 
NASA21K 
2153 
NASA21S4 
NASA21S5 
NA5A21S6 
NASA2157 
NASA21S8 
NASA2159 
NASA216Q 
NASA2161 
NASA2162 
NASA2163 
NASA2164 
NASA2165 
NASA2166 
NASA2167 
NASA2168 


i j-' 
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. LC/PSIS{L,KL1)**3 > 

GROWTH INSIDE CELL 

fiTWT<U,K,f) ■ RrwT,{L,lf.,1) f DWRTa,K)*<1 ./PSISIL^K) **3)/SRWP 
GROWTH TO TH^ WEFT 

' RTWT<L,KI.1,l)»RTWT<U/):t.1/l)+0WRT<l-/K)*(LC/PSlS(U/KU1>**3)/SRHP 
GROWTH TO THE RIGHT 

RTwm^KR1/l)«RTWr<L,»lRl#l)+0WRT<U#K>*(tIRC/PSIS(U#KR1)**3)/SRWP 
GROWTH DOWNWARD 

RTWf(L01^K,1)»RTWTaD1#K/1)+'DWRTtU,)?)*<t.DC/PSIS(L0l<,>;)**3)/SRWP 


IFIK.NE.KR.OR.KR.GE.O) 60 TO 11 
INCREMENT KOLUMN COUNTER FOR THIS UVER 
HRL<L) '■ KRUCLJ + 1 
11 CONTINUE 

IFa.NE.LR.OR.LR.GE.Nt.) GO TO 9 
C INCREMENT LAYER COUNTER 

IFCK.EQ.D LRT •; LR + 1 
l«RL<U+1) « K«L(.L+'1) + 1 
GO TO 9 
10 CONTINUE 

C CROCTH INSIDE CELL ONLY 

; RTWT(L,KV1) » RTWT<L^K,1) + OWRT(L,H) 


CONTINUE 
CONTINUE 
LR »LRT 




ROOTS » 0. 

PSITOT » 0. / 

PSINUM » 0. 

DO 23 LAYER » 1, LR 

KR «__HRL<LAY£R) _ , 

00 ej HOLUnN » 1, Kk ' ' 

C SLOUGH ROOTS IN ALL BOX CARS IN ALL CELLS. 

WTBSLF » RTWT(LAYER,X0LUMN,2) 

RTHr(LAYER,X0LUMN^2) » WTBSLF'*C1. - SLF) '' 

UTSLFO a WTSLFO + (WTBSLF-RTWT(LAYER,>;0LUMN,2>) )i 

ROOTSV(LAYER,XOLUMN) » RTWT <LAYER ,X0LUHN,1 J + RTWTO.AYER^KOL'OMN, 
. + RTWT<LAYER,K0LUMN^3> 

ROOTS a ROOTS + ROOTSV{LAYER,KOLUMN) 

23 CONTINUE 

ROOTWT = ROOTS * POPFAC 2. / ROWSP * 100. 

C ROOTWT IS DOUBLED TO ACCOUNT FOR FULL PROFILE. 

DO 25 LAYER a 2, LR 

KR a KRL (LAYER) ’ 


NASA2169 
NASA217Q 
NASA2171 
NASA2172 
2173 
NASA2174 
0 2175 

NASA2176 
2177 
NASA2178 
2179 
NASA2180 
NASA2181 
NASA2182 
NASA2183 
NASA2184 
NASA2185 
NASA2180 
NASA2187 
NASA2188 
NASA2189 
NASA2190 
NASA2191 
NASA2192 
NASA2193 
NASA219A 
NASA2195 
NASA2196 
NASA2197 
NASA2198 
NASA2199 
NASA22D0 
NA5A2201 
NASA2202 
NASA22Q3 
NASA2204 
NASA22dS 
2>NASA2206 
NASA2207 
NASA2208 
NASA2209 
22111 
NASA2211 
NASA2212 
NASA221I 


DO 26 KOLUMN » 1, XR 
IF(P5IS(LAYER,X0LUMN).‘LT.-15.) GO TO 26 
PSITOT a PSITOT ♦ PS IS < LAYER,.)KOLUMN) 

PSINUM a PSINUM + 1 

26 CONTINUE , 

25 CONTINUE 

IF(IFIXtpSINUM) .LE.O) GO TO 27 
PSlAVG a PSITOT / PSINUM 
OflOOT a ROOTWT - RUTWT 
RETURN 

27 PSIAVG Is -15. * 

WRITE(6..28) 

28 FORHAT</' «,A2(1H*)/' * PLANT IS DEAD DUE 
.'TO MOISTURE STRESS a'/' ',42(1H*>) 

return 

ENO 


NASA2214 

NASA2215 

NASA2216 

NASA2217 

NASA2218 

NASA2219 

NASA2220 

NASA2221 

NASA2222 

NASA2023 

NASA2224 

NASA2225 

NASA2226 

NASA2227 

NASA2228 

NASA2229 
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SU0BOUTINE R2MPE0 „ 2231; 

» t *#*#*##»-***•** •*•!**#••******* •*«*****«#i^*« 2231 

THW SUBROUTtNE CALCULATES ROOT IdPEOENCi BASED UPON THE BULK «NASA2232 

OESSiTY AND WATER CONTENT. THIS IS BASED UPON DATA fBOM ARTICLES BY i^HASA2233 


8.8»/CAMPBELL,D.C.ReiC0SKY#AND C.W.OOTY J. Of, SOIL AND WATER CONS. 
29Si22a-22A^19n AND 

H.N.TAYLOR AND H.R.OARONER. SOIL SCI.968l5Sr156/t963. 

A/^LINEAR TABLE LOOK-UP PROCEDURE IS USED. ASSUME ALL CURVES ARE 
READ AT THE SAME 00. 


♦NA5A223A 
♦NASA2235 
♦NASA223A 
•NASA2237 
*NASA223£ 
•NASA2239 

*********#**#«**#,***•****««**«*• **t •**«*#**« •#******#*« **#***riAsA224C 


COMMON /6E0M / 0/ G, NK, NL, RTPl, RTP2, SLF^ THRLN, W 

COMMON VH20N03/ VH20C<20,6), VN03C(20,6) 

COMMON /SOILID/ OIFfO<5)..THETAO<5)^BETA{5)^SDGPTH(5)/THeTAS(S), 
. THEIAR{5),AIR0R<5)yETA<5)/fLXMAX(5)#Q0C5> 

COMMON /ROOTIM/ RTIMPD(20^6) ,SNAM£ (3) ,TSTBO (9,20) ,INRT#MRT 
. ,TST1MP(9,20),QH20C(9J,FACR 

J * 1 

NKH » NK/2 

DO 99 LAYER » 1 ,NL 

24 IF(LAY£R*O.LE.SOEPTH(J))GO TO 25 

1F(J.LT.5)G0 TO 24 

25 JJ a 1 

26 lFt0OCJ)-TSTBO(1,JJ))3O, 30/27 

27 JJ a Jjt1 
IF(JJ.LE.INRT)GO TO 26 
JJ a jj-1 


30 DO 98 KOLUMN ■ 1/NKH 

TEST1aVH2OCaAyER/Kj5LUMNy/0O<J) 

IK a 1 

32 lF<TESt1-GH20C(IK))35,40,33 

33 IK = IK^I . . . 

1F(IK.LE.MRT)00 TO 32 
IK a IK-1 

SOIL CELL H20 LESS THAN fesT H20 
35 IFdK.EQ.DGO TO 40 
CALCULATE SOIL STRENGTH 
FOR VALUES OF 00 LESS THAN TABLE VALUES 
IFCJJ.GT.DGO TO 39 
RTIMP0<LAYER/K0LUMN)»TSTIMP( IK-1 /JJ)-(TSTIMP (IK-1 /JJ>-TST1MP(IK,JJNASA2273 
.)>*((TEST1-GK20C(IK-1))/(GH20C(IK)-GH20C(IK-1))> NASA2274 


2241 

2242 
NASA2243 

2244 

2245 

2246 
NASA224? 
NASA2248 
NASA2249 
NA5A225C 
NA3A2251 
NASA2252 
NASA2253 
NASA2254 
NASA2255 
NASA2256 
NASA2257 
NASA22S6 
NASA2259 
NASA226Co 
NASA2261 
NASA2262 
NASA2263 
NASA2264 
UASA2265 
NASA2266 
NASA226? 
NASA226P 
NASA226S 
NASA227'; 
NASA2271 
NA5A2272 


GO TO 98 

FOR VALUES OF 80 AND H20 BETWEEN TABLE VALUES 
39 TEMPlaTSTlMP(tK/JJ-1)-(TSTiMP(IK/JJ-1)-TSrrMP(lK,JJ,>!)aC-|f5TB0 
.JJ-1)-BO(J))/(TSTBO(IK/JJ-11-TSTBO(IK/JJ))) 
TEMP2aTSTlMPaK-1,JJ-1)-(TSTIMP (IK-1, JJ-D-^TSTlMpaK-l/jj))*! 
.D(IK-1,JJ--n-a0 (J))/.(TS780 (IK-1, JJ-1)-TST0O(IK-1,JJ);)-^ 


RTlMpO(LAYER,KOLUMN)aT6MP2+ (TEMPI -TEMP2)*((TESTl-Gfe20C( IK-1)) 
.0C(IK)-GH20C(IK-1))) 

GO TO 98 

FOR VALUES OF H20 LESS THAN OR EQUAL TO TABLE H20 
40 RTIMPD (LAYER, KOLUMN) *TSTIMP( IK, JJ-1)-(TST1MPUK,JJ-1)-TSTIMP( 
.))*((TSTB0(1K,JJ-1)"B0(J))/(TSTB0(1K,JJ-1)-TSTB0(IK,JJ))) 


98 

99 


CONTINUE 

CONTINUE 


108 

109 


NKH a NKH>1 
DO 109 KOLUMNbNKH,NK 
NKKbNK+ 1 -KOLUMN 
00 1C8 LAYER a 1,NL 

RTImPO (LAYER, KOLUMN ) aRTIM'PD (LAY ER/NKK) 
CONTINUE 


RETURN 

END 


NASA2275 
NASA2276 
(IK, NASA2277 
NASA2278 
(TSTBNASA2275 
NASA228L 
NASA2281 
/(GH2NASA2282 
NASA2283 
NASA228A 
NASA228‘ 
IK,JJNASA228( 
NASA2287 
NASA228? 
NASA228? 
NASA229( 
NASA2291 
NASA229Z 
NASA2292 
, NASA2294 
/ NASA2295 
NASA229( 
NASA2297 

' ■ NA|A229? 

NAS7 
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SUBROUTINE OUT (ARRA TTU1 ,TTUa, RANGE, UNI TS,TOTAL^UN ITST) 

C * p**^*****«ft* ********* t**#«**'*«i^ *****••***«##%#•« #*#*** 


c * * 

C * THIS SUBROUTINE PLOTS THE SOIL SLAB AND THE iPENSlTIES * 
C * Of THE ARRAY ELEMENTS IN EACH CELL. * 
C » * 


c • «r *«** *********** t***********#*****^*****!^** *<[.«• ft *•*«**•**«* 

INTEGER OAYNUM 

DIMENSION ARRAY(2Q,6), RAN6E<11> 

DIMENSION TTLK10), TTLEdO), UNIT5(6), UNITSTU) 

C 

COMMON /LIGHT / 0AYLN6, OAYNUM, LATUD£,OAYTYM,HYTvYM,lDAY,IPRNT 
COMMON- /PLOTS / NPN, NPP, NPR, NPW 
COMMON /LOGOUT/ KA<12),KHAfi (20,6) 

C 

?!i p 1 )L«1, 6 
1 L-1, 20 

ARAYLK « ARRAY(L,K) 

eo 2 1 * 1 , 11 

RANGE1 ■ RANGE(I) 

IF{ARAYLK.LE.RANCE11 iGO To T 
2 CONTINUE 

I • 12 

1 KHARIL,>0 » KA(I) 

RANtiEI » RANGE(I) 

WR1TB(6,100) TTL1,DAYNUM,TTL2,UNlTS,KA(1),R';NGE1,RANGE1,KA't.2), 

. RANGE (2) 

103 FORMAT(/6X,10AA,10X, 'JULIAN DAY ',I5/6X,iaAA//6X, 'UNITS - »,6A4 
. ,SX,'LEGEN0'/6X,'1 2 3456 ',18X,A1,' <» ',F8.4/25X, 

. F8.4,' < ',A1, * A* «,F8.4) 

00 14 L«1, 17, 2 
L1«L*1 

14 yRITE(6,102)L,<KHAR(L,>:),<»1,6),L1,{KHAR(L + 1,lO ,K« 1 , 6 ), 

. RANGE(<L + 3)/2),XA((L+3)/24'1),RANGE<<L+3)/2t1) 

102 F0RMAT(1X,I2,3X,6A2 / 1X,I2,3X,6A2,7X-F8.4, ' < ', 

. A1,» <a ',F8.4) i, 

L19-19 

L20a?,0 

WRITE(6,104) L19,(KHAR(19,X),<»1,6),L20,(KHARY20,0,X»1,6>, 

. RANGE(11),XA(12>, TOTAL, UNITST 
104 F0RMAT(1X,I2,3X,6A2 / 1X,12,3X,6A2,7X,F3.4, ' < A1 // 

. 6X, 'TOTAL a ' , F 1 1 . 4, 1 X, 4A4 ) 

RETURN 

END 


HASA2301 

NASA2302 

NASA2303 

NASA2304 

NASA230S 

NASA2306 

NASA23Q7 

2308 

NASA2309 

NASA2310 

2311 

2312 

2313 
NASA2314 
NASA2315 
NASA2316 
NA5A2317 
NA3A2318 
NASA2319 

Al A e A A 'X ‘9fl 

NASA2321 

NASA2322 

NASA2323 

NASA2324 

NASA23 

NASA2326 


NASA2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 
NASA2342 
NASA2343 
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o 

0 




PBECED^NG V^’AGE blank hot niP-^ED 



I, 
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0 


/ 




ORIGINAL PAGE IS 
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V, 


Terminal Input 


/ 


LEAFWa.l) 

RTWTCl.l, 

V 

1) 

RTWT(1,2,1) 

RTWr(2,l,l) 

RTWT(3,1,1) 

I 

.020 


.004 

• 

007 

.002 

PNFAG 

POPLT 

FZ 

ISs^UDE j. 


NOITR 

FAGR 

.01 

500000 

.5 

40 

.0001 

5 

.09 

KL KS 

KR 

KG 

JL JS 

JR 

JG 

JGl 

.01 .01 

.01 

.01 

.03 .03 

.03 

.03 

. 03 

LEAFLENGTH 

ROWSPACE 

PRINT 


THRLN 

FACL 

1. 

30 


25 

3 

.2E-4 

3 






\ 


RNNH4=60 


RNN03=40. 


? .i. 

' i.v. 
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f 


ORIGINAL 

„°^POOR 


pagr is 
Quality 





it 


5 

0.051 

Q .168 

40.12 

22.50 

0.420 

0.160 

- 30.0 

2.940 

1.520 

o.zm 

O.ZSS 

43.19 

52,50 

O.SOO 

0.250 

- 15.0 

2.770 

1 .320 

0.175 

0.162 

32.83 

90.10 

0.430 

0.160 

- 30.0 

3.020 

1 .370 

0.199 

O.UQ 

29.37 

150.1 

0.480 

0.135 

- 5.00 

2.370 

1.370 

0.133 

0.104 

27.93 

200.1 

0.480 

0.100 

- 15.0 

2.780 

1.370 (->) 


0 (('41 

• 

NOlFOUC S L 7 

6 " 

.05 

0.9 

.1 

1.1 

5.4 

1.3 

16.2 

1.5 

36.0 

1 , 7 f ' 

62,0 

1.9 

93.0 

6 

.07 

0.9 

.1 

1.1 

2.5 

1,3 

7.8 

1.5 

22.6 

1.7 

44.5 

1,9 

71.3 

6 

.09 

0.9 

.1 

1.1 

1.0 

1.3 

2.3 

1.5 

12.8 

1.7 

30.4 

1.9 

5 2, '4 


.11 

0 . 9 / 

.1 

1.1 

.9 

1.3 

1.7 

1.5 

7.5 

1.7 

21.5 

1.9 

31.2 

6 

.13 

0.9 

.1 

1.1 

.5 

1.3 

1.0 

1.5 

S .6 

1.-7 

15.2 

1.9 

. 29.8 

6 

• 1 3 // 

” I 

0.9 


li 

- 'i 
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3 /;o 

12.2 

1.7 

0 

0,00 

0 

263 

120 

155.0 

5.00 

9999 

11.3 

999.0 

999.0 

490 

20,6 

0.0 

0 

0.00 

0 

264 

0 

44.0 

5.00 

9999 

13.1 

999.0 

999.0 

509 

25.6 

6.1 

0 

0.00 

0 

265 

0 

86.0 

5.00 

9999 

16.4 

999.0 

999.0 

496 

30.6 

8.9 

0 

0.00 

0 

266 

0 

114.0 

5.00 

9999 

19.0 

999.0 

999.0 

256 

25.6 

8.3 

0 

0.00 

0 

267 

0 

114.0 

5.00 

9999 

17.2 

999.0 

999.0 

380 

22,2 

10.6 

0 

0.00 

. 0 

268 

0 

115.0 

5.00 

9999 

16.9 

999.0 

999.0 

484 

27.8 

7.8 

0 

0.00 

0 

269 

0 

97.0 

5.00 

9999 

17,7 

999.0 

999.0 

452 

27.8 

7.2 

0 

0.00 

0 

270 

0 

39.0 

5.00 

9999 

17.6 

999.0 

999,0 

364 

30. 0 

13.9 

0 

0.00 

0 

271 

0 

137.0 

5.00 

9999 

20.2 

999.0 

999.0 

448 

20.6 

7.2 

0 

o.cc 

0 

272 

0 

115.0 

5.00 

9999 

15.4 

999.0 

999.0 

475 

25.6 

3.9 

0 

o.co 

0 

273 

0 

96.0 

5.00 

9999 

15.9 

999,0 

999 i'Sr 

999,0 

404 

25.6 

3.9 

0 

0.00 

0 

274 

0 

96.0 

5.00 

9999 

15.9 

■' 999.0 

366 

25.6 

3.9 

0 

0.00 

0 

275 

0 

96.0 

5.00 

9999 

15.9 

999.0 

999.0 

450 

25.6 

3.9 

0 

0.00 

0 

276 

0 

96.0 

5.00 

9999 

15.9 

999.0 

999.0 

437 

18.1 

1.1 

0 

0.00 

0 

277 

0 

242 .3 

13.60 

12.3 

13.3 

999.0 

999.0 

440 

15.8 

- 1 .6 

0 

0.00 

0 

278 

0 

162.8 

10.60 

10.9 

11.3 

999.0 

999.0 

437 

20.4 

- 4.1 

0 

0.00 

0 

279 

0 

90.7 

12.60 

12.3 

12.7 

999.0 

■ 999.0 

432 

24.6 

- 1 .0 

0 

0.00 

0 

280 

0 

96.6 

16.00 

14.3 

14.4 

999.0 

999.0 

399 

26.8 

6.2 

0 

0.00 

0 

281 

0 

90.1 

21.70 

17.4 

17.2 

999.0 

999.0 

414 

21.7 

5.1 1 

0 

0.00 

0 

282 

c 

95.2 

J 6.60 

16.0 

16.3 

999.0 

999.0 

416 

25.3 

3.6 ' 

0 

0.00 

0 

283 

0 

174.2 

17.90 

15.2 

15.5 

999,0 

999.0 

403 

25.7 

8.(1 

0 

0.00 

0 

284 

0 

203.3 

19.70 

16.1 

16.3 

999.0 

999.0 

404 

14.8 

5.9 

0 

0.00 

0 

285 

0 

307.2 

12.60 

12.6 

13.2 

999.0 

999,0 

410 

13.2 

- 1.5 

0 

0.00 

0 

236 

0 

138.7 

9.90 

10.9 

11.6 

999.0 

999.0 

401 

18.7 

- 1 .8 

0 

0.00 

0 

287 

0 

113.4 

11.20 

10.3 

11.0 

999.0 

999.0 

396 

21 .9 

2.4 

0 

0.00 

0 

288 

0 

146.2 

14.50 

12.2 

12.7 

999.0 

999.0 

390 

21.1 

- 1.4 

0 

0.00 

0 

289 

0 

221.7 

13.90 

11.7 

12.3 

999,0 

999.0 

310 

20.2 

.4 

0 

0.00 

0 

290 

0 

209.7 

15.30 

13.1 

13.4 

999.0 

999.0 

205 

12.3 

.5 

0 

0.00 

0 

291 

0 

115.1 

10.10 

9.7 

10.6 

999.0 

999.0 

308 

24.5 

2.8 

0 

o.oc 

0 

292 

0 

190.7 

7.40 

12.3 

12.5 

999.0 

999.0 

289 

25.5 

2.1 

0 

0.00 

0 

293 

0 

123.2 

4.90 

14.1 

13.8 

999.0 

999.0 

202 

19.6 

3.4 

0 

.05 

0 

294 

0 

125.0 

7.50 

15.2 

15.0 

999.0 

999.0 

62 

7.9 

-.4 

0 

.45 

0 

295 

0 

305.7 

7.20 

4.9 

5.5 

999.0 

999.0 
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339 

12.9 

- 2.0 

0 

o.oc 

0 

296 

0 

1 61 . 2 

7.10 

6.3 

6.4 

999.0 

999.0 

334 

20.5 

.6 

0 

0.00 

0 

297 

0 

168.6 

7.50 

8,7 

, 8.4 

999.0 

999.0 

161 

7.3 


0 

0.00 

0 

293 

0 

269.4 

6.50 

5.1 

5.3 

999.0 

999.0 

332 

17.5 

0 

0.00 

0 

299 

0 

176.0 

5.60 

5.4 

5.3 

999.0 

999.0 

328 

18.1 

-.,1 ■ 

0 

0.00 

0 

300 

0 

148.7 

5.70 

7.0 

6.8 

999.0 

999.0 

321 

23.3 

.3 

0 

0.00 

0 

301 

0 

178.7 

5.20 

8.1 

7.8 

999.0 

999.0 

327 

24.6 

- 1.4 

0 

0.00 

0 

302 

0 

229.6 

5.20 

3.8 

8.5 

999.0 

999.0 

282 

9.9 

2.4 

0 

0.00 

0 

303 

0 

224.8 

5.50 

7.8 

7.7 

999.0 

999.0 

302 

15.7 

- 3.9 

0 

0.00 

0 

304 

0 

109.4 

5.60 

7.3 

7.3 

999.0 

999.0 

234 

19.1 

-.3 

0 

0.00 


305 

0 

36.0 

7.30 

8.8 

8. '5 

999.0 

999.0 

298 

22.1 

.6 

0 

0.00 

0 

306 

0 

120.5 

6.30 

9.0 

8.3 

999.0 

999.0 

267 

20.6 

-.2 

0 

0.00 

0 

307 

0 

. 34.3 

6.00 

8.3 

8.2 

999.0 

999.0 

280 

21.1 

.3 

0 

0\%00 

oi ' tjlv . 

0 

308 „ 

0 

209.0 

8.70 

9.7 

9.5 

999.0 

999.0 

155 

9.2 

0.0 

0 

0 

309 

0 

172.2 

3.50 

6.9 

7.1 

999.0 

999.0 

278 

12.9 

- 5.3 

0 

0 /. 00 

^n. 

- 31'0 

0 

132.5 

4.00 

4.8 

5.1 

999.0 

999.0 

274 

19.7 

- 3.1 

0 

0 . 00 

0 

311 

0 

195.8 

4.20 

7.0 

6.9 

999.0 

999.0 

254 

23.3 

1.2 

0 

0.00 

0 

312 

0 

176.8 

4.80 

9.1 

8.9 

999.0 

999.0 

280 

16.5 

1.3 

0 

0.00 

□ 

513 

0 

1 54.1 

5.10 

8=4 

. 8.3 

999.0 

999.0 

57 

1.3 

- 7.3 

0 

0.00 

0 

314 

0 

327.3 

4.60 

1 . 5 ’ 

2.3 

999.0 

1 ^ 9.0 

71 

-A. 7 

- 8.3 

0 

0.00 

0 

315 

0 

1 98.8 

3.30 

- 1.5 

-.8 

999.0 

999.0 

68 

3.9 

- 5.9 

0 

Q.OQ 

0 

316 

0 

218.2 

5.70 

1.1 

1.4 

999.0 

999.0 

243 

9.4 

- 7.1 

0 

0.00 

0 

317 

0 

172.0 

4,10 

1.0 

1.2 

999.0 

999.0 

135 

- 1.6 

- 8.4 

0 

O.QO 

0 

318 

0 

95.7 

3.20 

.1 

.6 

999.0 

999.0 

125 

1.2 

- 6 .4 

0 

0^00 

0 

319 

0 

64.6 

4.50 

1.0 

1.4 

999.0 

999.0 

243 

9.4 

- 7.5 

0 

0.00 

0 

320 

0 

100.7 

4.10 

.6 

,7 

999.0 

999.0 

253 

9.6 

- 6.3 

0 

0,00 

0 

321 

0 

198.5 

3.20 

.5 

.3 

999.0 

999.0 

250 

7.0 

- 8.1 

0 

O.QO 

0 

322 

0 , 

, 167.3 

3.20 

0.0 

0.0 

999. 0 

999.0 

47 

- 4.7 

- 11.7 

0 
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0 
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0 

267.3 

2.90 

- 3.7 

- 3.0 

999.0 

999.0 

50 

- 6.4 

- 11.7 

0 

0.00 

0 

324 

0 

168.3 

2.40 

- 4.8 

- 4.1 

999.0 

999.0 

77 

- 2.2 

- 10.5 

0 

0.00 

0 

325 

0 

126.8 

3.60 

- 3.0 

- 2.5 

999.0 

999.0 

190 

7.9 

- 6.1 

0 

0.00 

0 

326 

0 

122.5 

4.40 

-.7 

-.6 

999.0 

999.0 

223 

12.1 

- 7.3 

0 

0.00 

0 

327 

0 

251.4 

3.10 

-.3 

-.4 

999.0 

99 . 9.0 

138 

6.9 

- 7.9 

0 

0.00 

Q 

328 

0 

115.2 

3.70 

-.3 

-.4 

999.0 

999.0 

50 

1.3 

- 3.2 

0 
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0 

329 

0 

154.3 

6.00 

.3 

. 4 

999.0 

999.0 

93 

-.6 

- 4.0 

0 

0.00 

0 
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0 

205.3 

’ 4.70 
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,, 999.0 

999.0 

227 

.8 

- 9.0 

0 

0.00 

0 

331 

0 

192.6 

3.60 

-.5 

-. V / 999.0 

999.0 
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5.2 

- 9.2 

0 

.03 

0 
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0 
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4.70 

-.7 

-.6 

999.0 

999.0 

213 

6,7 

- 5.2 

0 

.02 

0 
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0 
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4.20 

-.3 

-.4 

999.0 

999.0 
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11.3 
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0 
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0 
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4.60 

.3 

-.1 

999.0 

999.0 

200 

8.7 

-9.0 

0 
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0 
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0 
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4.50 
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.9 

999.0 

999.0 
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- 8.2 
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0 

.05 

0 

336 

0 
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1.50 

- 1.1 

- 1.0 

999.0 

999.0 
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- 5.2 

- 16.3 

0 

0.00 

0 

337 

0 

205.6 

1.50 

- 2.0 

- 2.1 

999.0 

999.0 

75 

- 4.9 
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0 
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0 
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0 

237.1 

2.50 

- 1.6 

- 1.8 

999.0 

999.0 

78 

- 4.9 
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0 

0.00 

0 

339 

0 

152.4 

2.40 

- 1.0 
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999.0 

999.0 

133 

- 7.8 
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0 

0.00 

0 
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0 

160.2 

1.50 
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133 

- 13.4 - 23.3 

0 

.11 

0 

341 

0 

160.2 

1.50 

- 1.8 

- 2.0 

999.0 

999.0 
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- 2.0 

999.0 
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0 

0.00 

0 
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0 
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0 

194.4 
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0 

0.00 

0 
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0 
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0 
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0 
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0 

358 

0 

207.4 
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0 
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0 
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0 
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0 
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0 
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0 
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0 
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0 
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0 
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0 
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- 9.6 
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999.0 

999.0 
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0 
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133.8 

1.70 

- 9.4 
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0 
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999.0 
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0 
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0 
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999.0 
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6.4 - 17.4 

0 
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0 
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0 
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3.20 
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999.0 

999.0 

246 

3.3 - 16.9 

0 

0.00 

0 

17 

0 

163.1 

3.10 

- 5.8 

- 6.1 

999.0 

999.0 

68 

3,4 - 7.2 

0 
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0 

18 

0 
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- 3.1 

- 3.3 

999.0 

999.0 
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6.0 - 13.4 

0 
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0 

19 

0 
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999.0 
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0 
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261 5.7 - 9.5 

1 H 4 2 . 3 - 15.9 

277 - 3.4 - 20.3 

261 A . 8 - 16.9 
1 A 8 - 2.9 - 11.5 

263 - 7.7 - 16.3 

282 - 6.3 - 21.6 

288 - A . 8 - 23.7 

217 - 10. 8 - 22.2 

295 -12.7 -27.1 

311 -A.1 -27. A 

291 3.0 -22.2 

296 - 8.1 - 25.6 

317 -.2 - 23.1 

291 - 2 . A - 19.2 

32 A 1.3 - 19.9 

271 .5 - 12.0 

197 A *2 - 11.2 
333 .8 - 9.3 

28 A 5 . A - 11.8 

31 A 9.7 - 7.8 

279 9.6 - A . 6 

216 11 . A - 1.3 

276 17.8 - 2.1 

3 A 5 17.7 - 2.4 

3 A 7 2.3 - 16 . A 

196 - 2.8 - la . 6 

336 6 . A - 13.2 

370 10.8 - 10.9 

3 A 8 13.1 - 3.9 

306 8.3 - 5.8 

283 6.5 - 6.0 

360 7.7 - 5.8 

320 2.1 - 10.0 

278 6.5 - 7 . A 

299 9.6 - 8.6 

347 1A.1 -A. 6 

84 2.3 -2. A 

AHA 11. A -3.0 
369 12.9 -5.5 

2A 8.0 -7. A 

AO .3 -11.0 
42 7.5 -11.6 

273 12.6 -7.2 

243 12.9 -1.0 


0 Q.OO 0 21 

0 0.00 0 22 

Q 0.00 0 23 // 

0 Q.OO 0 24 

0 0.00 0 25 

0 0.00 0 26 

0 Q.OO 0 27 

0 0.00 O'r 28 

0 0.00 d ! 29 

0 Q.OO : 0 '' v , 30 

0 0.00 0 \31 

0 Q.OO 0 "32 

0 0.00 0 33 

0 0.00 0 34 

0 0.00 0 35 

0 0.00 0 36 

0 0.00 0 37 

0 O.UQ n 31 

0 Q.OO 0 39 

0 0.00 0 40 

0 0.00 0 41 

0 0.00 d 42 

0 u.QO 0 43 

n Q.OO A A 

0 Q.OO U 45 

0 0.00 0 46 

0 0.00 0 A 7 

0 0.00 Q 48 

0 0.00 0 49 

0 0<^00 0 50 

0 0.00 0 51 

0 0.00 0 52 

0 0.00 0 53 

0 0.00 0 54 

0 O.QD 0 55 

0 0.00 0 56 

0 Q.OO 0 57 

0 0.00 0 58 

0 0.00 0 59 

0 0.00 0 60 

0 0.00 0 61 

0 0.00 0 62 

0 0.00 0 63 

0 O.QG 0 64 

0 0.00 0 65 
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- 7.4 

0 
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0 
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1.80 
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0 
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0 
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0 
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- 9.8 

0 
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0 
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0 
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0 
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0 
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0 
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0 
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0 
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0 

170.0 

3.80 

- 3.8 

0 
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0 
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c 
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5.60 

.1 

n 
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0 
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2.10 
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0 
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0 
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0 
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- 2.1 

0 
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0 
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.7 

0 
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0 
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.3 

0 
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0 
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3.20 

- 1.2 

0 
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0 
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0 
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0 

146.6 
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0 
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Q 
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0 
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0 
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0 

239.9 
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2.5 

0 

270.6 

5.60 
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362 

16.7 

3.7 

0 

0.00 

0 

66 

0 

253,5 

6.80 

3.6 

7.7 

999.0 

999.0 

236 

8.1 

- 1 .6 

0 

.08 

0 

67 

0 

166.4 

6.00 

4.3 

3.7 

999.0 

999.0 
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1.8 

- 9.1 
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0 

73 

0 

129.6 

3.50 

3.5 

2.8 
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0 
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0 
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0 
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114 

4.9 

- 2.2 

0 

.35 

0 

77 

0 

273.-15 


1.7 

2.0 

999.0 

999.0 

436 

3.9 

- 4.1 

0 

0,00 

0 

78 

0 

196.2 

3.8 

3.0 

999.0 

999.0 

152 

5.2 

- 4.0 

0 

0.00 

0 

79 

0 

179.0 

5.80 

1.8 

1.5 

999.0 

999.0 

65 

7.0 

- 1 .2 

0 

.02 

0 

80 

0 

239.2 

7.20 

2.6 

2.1 

999.0 

999.0 

227 

3.7 

- 4.3 

0 

.26 

0 

81 

0 

42.7 

5 . SO 

.6 

.7 

999.0 

999.0 

525 

3.2 

- 8.6 

0 

0.00 

0 

82 

0 

288.0 

4.70 

Q.O 

.4 

999.0 

999.0 

533 

3.0 

- 5.1 

Q 

0.00 

0 

83 

0 

216.6 

5.50 

.4 

.5 

999.0 

999.0 

523 

12.6 

- 3.0 

0 

0.00 

0 

84 

0 

281.0 

6.10 

3.7 

3.4 

999.0 

999.0 

214 

1 .0 

- 6.0 

0 

□ .□0 

u 

85 

0 

261 .5 

4 ioO 

f \ 

• 7 - 

4 n 

r ♦ w 

999.0 

aoa n 

520 

17.2 

- 1 .8 

0 

0.00 

0 

86 

0 

232,7 

6.70 

6.1 

5.7 

999.0 

999.0 

474 

13.2 

1,1 

0 

0.00 

0 

87 

0 

155.1 

7.10 

9.0 

8.4 

999.0 

999.0 

4 C 1 

14.3 

-.2 

0 

0.00 

0 

88 

0 

244 .1 

7,40 

7.2 

6.8 

999.0 

999.0 

464 

10.6 

- 1.1 

0 

.03 

0 

89 

0 

224.0 

6.20 

7.3 

6.9 

999.0 

999.0 

91 

3.4 

- 1.9 

0 

.06 

0 

90 

0 

253.6 

6.10 

1.8 

2.1 

999.0 

999.0 

349 

.3 

- 4.2 

0 

.05 

0 

91 

0 

231.3 

4.60 

• .5 

.8 

999,0 

999.0 

513 

4.9 

- 6.9 

0 

OtOO 

0 

92 

0 

131.3 

4.40 

3.9 

3.7 

999.0 

999,0 

219 

2.6 

- 4.8 

0 

0.00 

0 

93 

0 

165.3 

4.90 

1.6 

1.7 

999.0 

999.0 

476 

9.7 

- 4.3 
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17.0 

- 2.9 

0 

0.00 

0 

96 

0 

235.3 

6.90 

7.8 

7.4 

999.0 

999.0 

524 

22.5 

-.2 

0 

0.00 

0 

97 

0 

256.3 

6.20 

10.4 

9.7 

999.0 

999.0 

590 

15.0 

.9 

0 

0.00 

0 

98 

0 

217.0 

5.30 

10.0 

9,5 

999.0 

999.0 

520 

21.9 

-.9 

0 

0.00 

0 

99 

0 

307.0 

6.30 

11.0 

10.6 

999.0 

999.0 

50 

6.4 

2.5 

0 

.13 

0 

100 

0 

268.3 

7.70 

5.3 

5.5 

999.0 

999.0 

182 

4.7 

- 3.1 

0 

.26 

0 

101 

0 

473.1 

6.20 

2.0 

2.1 

999.0 

999.0 

585 

6.6 

- 3.9 

0 

0.00 

0 

102 

r/ 393.1 
(J 192.6 

5.00 

3.9 

3.4 

999.0 

999.0 

471 

15.5 

- 2.6 

0 

0.00 

0 

103 

5.70 

6.3 

5.8 

999.0 

999.0 

563 

19.3 

- 1.0 

0 

0.00 

0 

104 

0 

124.9 

6.90 

9.9 

9.4 

999.0 

999.0 

5 93 

24.9 

^.4 

0 

.02 

0 

105 

0 

171 .2 

6.50 

12.7 

12.4 

999.0 

999.0 

587 

26.1 

4.3 

0 

0.00 

0 

106 

0 

270.3 

8.80 

14.4 

13.9 

999.0 

999.0 

304 

25.8 

6.4 

0 

O.GO 

0 

107 

0 

337.4 

10.30 

14.2 

14.2 

999.0 

999.0 

433 

27.0 

9.1 

0 

0.00 

'0 

108 

0 

351 .2 

11.20 

16,8 

16.5 

999.0 

999.0 

503 

20.9 

' 5.1 

0 

0.00 

0 

109 

0 

306.8 

8.20 

16.0 

15.7 

99 , 9.0 

999.0 

604 

16.3 

3.2 

0 

0.00 

0 

110 

0 

149.1 

7.00 

13.2 

13.3 

999.0 

999.0 
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561 

22.1 

2.6 

'0 

0.00 

0 

111 

0 

286.6 

6.50 

1^.7 

16.6 

999.0 

999.0 

589 

25.7 

3.5 

0 

0.00 

0 

112 

0 

216.7 

7.20 

17.1 

16.7 

999.0 

999.0 

563 

28.1 

8.2 

0 

0.00 

0 

113 

0 

275.6 

8.00 

19.2 

18.5 

999.0 

999.0 

663 

19.5 

6.3 

0 

0.00 

0 

116 

0 

237.8 

3.90 

16.6 

16.6 

999.0 

999.0 

626 

12.1 

-.7 

0 

0.00 

0 

115 

0 

218.2 

7.90 

12.1 

12.7 

999.0 

• 999.0 

696 

16.7 

-.9 

0 

0.00 

^-0 

116 

0 

186.5 

6.80 

12.2 

12.1 

999.0 

999.0 

683 

12.5 

1.1 

0 

O.QG 

0 

117 

0 

155.6 

6.10 

11.0 

11.5 

999.0 

999.0 

517 

17.0 

“ 1.8 

0 

0.00 

0 

118 

0 

263.5 

5,70 

11.3 

11.6 

999.0 

999.0 

626 

19.2 

r 6 . 0 

0 

0.00 

0 

119 

0 

167.5 

6,70 

13.6 

13.2 

999.0 

999.0 

579 

16.0 

- 2.2 

0 

0.00 

0 

120 

0 

263.7 

6.50 

13.8 

13.9 

999.0 

999.0 

669 

20.7 

7.0 

0 

.91 

0 

121 

0 

195.9 

10.30 

16.3 

15.6 

999.0 

999.0 

125 

9.7 

1.2 

0 

.63 

0 

122 

0 

305.5 

8.10 

7.2 

7.6 

999.0 

999.0 

607 

8.7 

- 1.6 

0 

0.00 

0 

123 

0 

169.7 

6.10 

7.3 

7.5 

999.0 

999.0 

669 

17.6 

- 1.8 

0 

0.00 

0 

126 

0 

177.3 

7,50 

10.8 

10.8 

999,0 

999.0 

576 

26.1 

6,1 

0 

0.00 

0 

125 

0 

212.6 

9.10 

13.9 

13.6 

999.0 

999.0 

666 

28.3 

7.2 

0 

0.00 

0 

126 

0 

235.6 

7.80 

16,8 

16,9 

999.0 

999.0 

695 

17.9 ^ 

3.1 

0 

.06 

0 

127 

0 

217.0 

5.80 

12.1 

12.6 

999.0 

999.0 

78 

7.1 ' 

-.2 

0 

.70 

0 

128 

0 

279.2 

8.00 

6.2 

c6.5 

999.0 

999.0 

167 

3.7 

- 6.1 

0 

.29 

b : 

129 

0 

176.1 

5.60 

2.1 

2.5 

99v.u 

vyy.O 

566 

6.2 

- 5.1 

0 

.29 

0 

130 

0 

209.0 

5.30 

2.6 

2,7 

999.0 

999.0 

635 

16.2 

- 1.5 

0 

0.00 

0 

131 

0 

153.6 

5.30 

8.6 

3.6 

999.0 

999.0 

657 

14.6 

3.8 

0 

.11 

0 

132 

0 

139.5 

/, 8.50 

10.1 

10.3 

999.0 

999.0 

596 

20.6 

1.0 

0 

0.00 

0 

133 

0 

133.7 

' 8.80 

12.3 

12.6 

999.0 

999.0 

635 

22.5 

6.6 

0 

.39 

0 

136 

0 

183.5 

10.00 

13.9 

16.1 

999.0 

999.0 

562 

23.6 

8.9 

0 

OaOO 

0 

135 

0 

321 .7 

12.10 

16.7 

16.8 

999.0 

999.0 

673 

28.0 

9.7 

b 

0.00 

0 

136 

0 

163.3 

12.20 

16.9 

16.8 

999.0 

999.0 

399 

25.6 

9.1 

0 

0.00 

0 

137 

0 

167.9 

12.90 

15,8 

15.7 

999.0 

999.0 

629 

25.0 

6.1 

0 

0.00 

0 

138 

0 

138.9 

9.80 

16.3 

16.6 

999.0 

999.0 

668 

26.5 

8.9 

0 

0.00 

0 

139 

0 

135.9 

11.10 

17.2 

17.1 

999.0 

999.0 

136 

12.5 

6.2 

0 

.26 

0 

160 

0 

176.0 

7.30 

11.2 

11.2 

999.0 

999.0 

609 

17.6 

3.7 

0 

0.00 

0 

161 

0 

258.6 

8.70 

12.5 

12.5 

999.0 

999.0 

530 

20.8 

6.1 

0 

0.00 

0 

162 

0 

165.6 

9.10 

16.6 

16.3 

999.0 

999.0 

665 

16.7 

6.3 

0 

0.00 

0 

163 

0 

112.3 

8.00 

13.7 

13.6 

999.0 

999.0 

616 

19.6 

- 2.1 

0 

0.00 

0 

166 

0 

206.5 

9.20 

13.6 

13.6 

999.0 

999.0 

688 

26.9 

6.6 

0 

O.QQ 

0 

165 

0 

112.7 

10.60 

16.3 

15.9 

999.0 

999.0 

556 

25.1 

8.2 

0 

0.00 

0 

166 

0 

69.8 

10.60 

17.6 

17.5 

999.0 

999.0 

633 

28.9 

6.1 

0 

0.00 

b 

167 

0 

136.1 

9.10 

19.6 

19.1 

999.0 

999,0 

631 

29.0 

11.6 

0 

0.00 

0 

163 

0 

167.5 

10.30 

21.7 

21.1 

999.0 

999.0 

251 

30.1 

7.1 

0 

.16 

0 

169 

0 

156.7 

11.50 

16.3 

16.6 

999.0 

999.0 

328 

10.6 

2.7 

0 

.15 

0 

1*50 

0 

170.3 

6.30 

10.6 

10.7 

999.0 

999.0 

661 

16,6 

2.0 

0 

.03 

0 

T',51 

0 

90.7 

6.80 

12 . 3p 

12.1 

999.0 

999.0 

586 

22.1 

1.6 

0 

0.00 

0 

llS2 

0 

79.2 

7.80 

16.2 

13.9 

999.0 

999.0 

659 

23.6 

6.2 

0 

0.00 

0 

153 

0 

126.7 

7.20 

16.9 

16.5 

999.0 

999.0 

637 

29.8 

6.0 

0 

0.00 

0 

156 

0 

107.6 

7.90 

19.6 

18.9 

999.0 

999.0 

665 

29.8 

10.3 

0 

0.00 

0 

155 

0 

122.6 

9.20 

21.6 

20.6 

999.0 

999.0 
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699 

32.4 

10.2 

0 

0.00 

0 

156 

0 

205.7 

10.00 

23.7 

,22,6 

999.0 

999,0 

748 

26.9 

11.8 

0 

.89 

0 

157 

0 

*198.5 

11.40 

24.0 

23.2 

999*0 

099.0 

254 

13.8 

5.9 

0 

.25 

0 

158 

0 

161.3 

9.20 

15,4 

15.7 

999.0 

999.0 

98 

9.0 

4.1 

0 

.60 

0 

159 

0 

122.6 

6.60 

9.8 

9.9 

999.0 

999.0 

293 

13.8 

. 2.5 

0 

.60 

0 

160 

0 

73.3 

6.60 

9.4 

9.5 

999.0 

999.0 

722 

23.2 

' 2.1 

0 

0.00 

0 

161 

0 

92.5 

7.90 

14.7 

14.4 

999.0 

999.0 

715 

28.6 

6.8 

,0 

0.00 

0 

162 

0 

99.4 

10.20 

18.1 

17.8 

999.0 

999.0 

710 

30.5 

10.6 

0 

0,00 * 

0 

163 

0 

104.9 

11.40 

19.8 

19.6 

999.0 

999.0 

727 

34.? 

11.2 

0 

0.00 

0 

164 

0 

106.5 

11.40 

21,0 

20.7 

999.0 

999,0 

622 

35.5 

11.7 

0 

0,00 

0 

165 

0 

140.4 

13*40 

21.8 

21.5 

999.0 

999.0 

504 

27.9 

13.7 

0 

0.00 

0 

166 

0 

116.8 

14.40 

''21.0 

20.9 

999.0 

999.0 

613 

26.5 

13.1 

0 

0.00 

0 

167 

a 

181.8 

13.90 

21.9 

21.4 

999.0 

999.0 

323 

21.3 

9.9 

0 

0.00 

0 

168 

0 

180.9 

11.50 

17,8 

17.9 

999.0 

999,0 

425 

29.2 

10.0 

0 

0.00 

0 

169 

0 

189.4 

11.40 

19.1 

18.8 

999.0 

999.0 

544 

21.1 

6.1 

0 

o.ou 

0 

170 

0 

256.2 

7.00 

17.1 

17.1 

999.0 

999.0 

724 

28.3 

6.9 

0 0.00 

0 

;171 

0 

112.1 

8.00 

20.7 

20.2 

999.0 

999.0 

720 

32 S 8 

7.5 

0 

0.00 

0 

172 

0 

54.7 

9.20 

23.2 

22.6 

999.0 

999.0 

687 

29.0 

9.0 

0 

0.00 

0 

173 

0 

142.2 

13.60 

24.3 

23.6 

999.0 

999.0 

299 

22.6 

13.4 

0 

.44 

0 

/74 

0 

106.6 

14.10 

20.0 

20.2 

999.0 

999.0 

571 

28.3 

11.9 

0 

0.00 

0 

175 

0 

237=8 

14,00 

3 4 n 
i « w 

c 

C.W« 

tt 5. 0 

999*0 

709 

32.1 

9.7 

0 

0,00 

0 

176 

0 

139.2 

12.90 

22.4 

22.0 

999,0 

999.0 

638 

- 35,'. 8 ■ 

15.0 

0 

0.00 

0 

177 

0 

194.5 

13.80 

25.2 

24.7 

999.0 

999,0 

627 

29 U 

13.6 

0 

0.00 

0 

178 

0 

138,0 

15.80 

25.5 

25.1 

999,0 

999.0 

5 52 

33.8 

12.0 

0 

0.00 

0 

179 

0 

120.2 

12.00 

23.0 

24.5 

999.0 

999.0 

682 

33.7 

10.2 

0 

0.00 

Q 

180 

0 

181,8 

12.60 

27.0 

26.0 

999.0 

999.0 

611 

35,6 

12.0 

0 

0.00 

0 

181 

0 

139.9 

11.80 

27.8 

26.9 

999.0 

999,0 

648 

35.1 

12.7 

0 

0.00 

0 

182 

0 

115.5 

12.50 

28.5 

27.7 

999.0 

999,0 

688 

35.2 

13.0 

0 

.14 

0 

183 

0 

136.8 

13.70 

29.3 

28.4 

999.0 

999.0 

494 

33.2 

14.7 

0 

.21 

0 

184 

0 

110.3 

15.60 

23,5 

23*5 

999.0 

999.0 

506 

27.5 

13.6 

0 

.83 

0 

185 

0 

79.9 

15.40 

22,6 

22.6 

999.0 

999.0 

475 

27.2 

13.3 

0 

0.00 

0 

186 

.0 

121.0 

15.80 

21.8 

21,8 

999.0 

999.0 

484 

27.4 

12.4 

0 

0.00 

0 

187 

0 

184.1 

15.70 

22.6 

22.2 

999.0 

999.0 

714 

33.5 

10.9 

0 

0.00 

0 

188 

0 

68.7 

11.00 

22.6 

22.3 

999.0 

999.0 

612 

35.7 

12.0 

0 

0.00 

0 

189 

0 

118.4 

12.50 

23.5 

23.1 

999.0 

999.0 

622 

35.5 

11.7 

n 

0.00 

0 

190 

0 

140.4 

13.40 

21 .8 

21.5 

999.0 

999.0 

504 

27.9 

13.7 

0 

0.00 

0 

191 

0 

116.8 

14.40 

21.0 

20.9 

999.0 

999.0 

613 

26.5 

13.1 

0 

0.00 

0 

192 

0 

181 .8 

13.90 

21.9 

21.4 

999.0 

999,0 

328 

21.3 

9.9 

0 

0.00 

0 

193 

0 

180.9 

11.50 

17.8 

17.9 

999.0 

999.0 

425 

29.2 

10.0 

0 

0.00 

0 

194 

0 

189.4 

11.40 

19.1 

18.8 

999.0 

999.0 

544 

21.1 

6.1 

0 

0.00 

0 

195 

0 

256.2 

7.00 

17.1 

17.1 

999.0 

999,0 

724 

28.3 

6.9 

0 

0*00 

0 

196 

0 

112.1 

8.00 

20.7 

20.2 

999.0 

999.0 

720 

32.8 

7.5 

0 

0.00 

0 

197 

0 

54.7 

9.20 

23,2 

22 .6 

999.0 

999.0 

687 

29.0 

9*0 

0 

0.00 

0 

198 

0 

142,2 

13*60 

24.3 

23.6 

999.0 

999.0 

299 

22.6 

13.4 

0 

,44 

0 

199 

0 

106,6 

14*10 

20.0 

20.2 

999.0 

999.0 

571 

28.3 

11.9 

0 

0.00 

0 

200 

0 

237.8 

14.00 

21.0 

20.5 

999.0 

999.0 
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709 

32.1 

9.7 

0 

O.QQ 

0 201 

0 

139.2 

12.90 

22.4 

22.0 

999.0 

999.0 

638 

35.8 

15.0 

0 

0.00 

0 202 

0 

194.5 

13.80 

25.2 

24.7 

999.0 

999.0 

627 

29.4 

13.6 

0 

O.'iTo 

0 203 

0 

138.0 

15.80 

25.5 

25.1 

999.0 

999.0 

552 

33.8 

12 . Q 

0 

o.do 

0 204 

0 

120,2 

12.00 

25.0 

24.5 

999.0 

999.0 

682 

33.7 

10.2 

0 

Q.QO 

0 205 

0 

181.8 

12.60 

27.0 

26.0 

999.0 

999,0 

611 

35.6 

12.0 

0 

0.00 

0 '^06 

0 

139.9 

11.80 

27.8 

26.9 

999.0 

999.0 

648 

35.1 

12.7 

0 

0 . Q 0 ‘ 

0,207 

0 

115.5 

12.50 

28.5 

27.7 

999,0 

999.0 

688 

35.2 

13.0 

0 

.14 

0 ' 208 

0 

136.8 

13.70 

29.3 

28.4 

999.0 

999.0 

394 

33.2 

14.7 

0 

.21 

0 209 

n 

110.3 

15.60 

23.5 

23.5 

999.0 

999.0 

506 

27.5 

13 c 6 

0 

.83 

0 210 

0 

79,9 

15.40 

22.6 

22.6 

999,0 

999.0 

475 

27.2 

13.3 

0 

0.00 

Ij 211 

0 

121.0 

15.80 

21.8 

21.8 

999.0 

999.0 

4 S 4 

27.4 

12.4 

0 

0.00 

Q 212 

0 

134.1 

15.70 

22.6 

22.2 

999.0 

999*0 

714 

33.5 

10.9 

0 

0.00 

0 213 

0 

68.7 

11.00 

22.6 

22.3 

999.0 

999.0 

612 

35.7 

12.0 

0 

0.00 

0 214 

0 

118.4 

12.50 

23 . S 

23.1 

999.0 

999.0 
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oiciionary of terms for wheat ntntit»nmtiifnfnnnii» 

ACCOES - running TOTAL OF AVG TEMPERATURE CO 

AOJES - AN OPERATION ON SOIL EVAPORATION FOR CALCULATING FLOW 

- OF WATER UP, 

AHT1P - ACCUMULATION OF AVERAGE TEMPERATURE AFTER HEADING (C> 

ALPHA - A CONSTANT, DEPENDENT OH HYDRAULIC PROPERTIES OF THE SOIL, 

ALTMP - CI,J) ACCUMULATION OF AVERAGE TEMP SINCE LEAF J INITIATED ON 

STEM I CO 

AMAX1 - FORTRAN FUNCTION TO FIND MAXIMUM VALUE 

AMIN1 - fortran FUNCTION TO FIND MINIMUM VALUE. 

ANTHES - (I) DAY ANTHESIS BEGAN FOR STEM I 

APTHP - <I) ACCUMULATOR FOR AVERAGE TEMPERATURE SINCE INITIATION 
OF STEM I CO 

ARAYLK - NONSUBSCRIPTEO ARRAY(L,K) 

AREA « TOTAL LEAF AREA <CM**2) 

ARRAY - NAME OF ARRAY FOR WHICH MAP IS DESIRED 
ATMP - AVERAGE DAILY TEMPERATURE C DEG C ) 

ATTMP - m ACCUMULATION OF AVERAGE TEMP SINCE LAST TILLER INITIATED 
ON STEM I 

AycPSl - THE SOIL WATER POTENTIAL EFFECTING PHOTOSYNTHESIS 
BOOT - (I) STEM I BEGAN BOOT STAGE ON THIS DAY 

Cl - COEFFICIENTS FOR EOUATION USED TO CALCULATE DAY LENGTH 

CALAVG - FACTOR OF REGRESSION EQUATION FOR CALCULATING FRACTION OF 

- TIME PLANT. IS ABOVE -7.0 BARS. 

CALMAX - FACTOR OF REGRESSION EQUATION FOR CALCULATING FRACTION OF 

- TIME PLANT. IS ABOVE -7.0 BARS. 

CALTSO - FACTOR OF REGRESSION EQUATION FOR CALCULATING FRACTION OF 

- TIME PLANT. IS ABOVE -7.0 BARS. (OAY). 

CALTSN - FACTOR OF REGRESSION EQUATION FOR CALCULATING FRACTION OF 

- TIME PLANT, IS ABOVE -7.0 BARS. (NIGHT). 

CAPSCA - VECTOR OF BREAX-POINTS FOR GRAPHICAL INTERPRETATION OF 
VOLUMETRIC WATER CONTENT. 

CAPUP - CUMULATIVE CAPILLARY UPTAKE OF H20 ACROSS BOTTOM PROFILE (MM) 
CO - CARBOHORATE DEMAND (GRAMS) 

CLIMAT - (I) DAILY INPUT (CLIMATE) VARIABLES 

(1) SOLAR RADIATION. IN LY/OAY. 

(2) MAX. AIR TEMP. IN OEG F. 

(3) MIN. AIR TEMP. IN DEG.F. 

(5) . RAIN FALL. IN INCHES/DAY. 

(6) PAN EVAPORATION 

(7) JULIAN OAY NUMBER. 

(8) AMOUNT OF FERTILIZER APPLICATION (LBS/ACRE) 

COND - UNSATURATED HYDRAULIC CONDUCTIVITY, IN CM/OAY. 

CONSCA - VECTOR OF BREAK POINTS FOR GRAPHICAL INTERPRETATION OF 
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VOLUMETRIC iUtER CONTENT IN CC PER CC SOIL. 

CSTRSf - FRUIT CARBOHYDRATE STRESS FACTOR 

CSTRSV - RATIO OF CARBOHYORATE SUPPLY TO DEMAND FOR VEG GROWTH 
CUHEP - CUMULATIVE TRANSPIRATION, MM. 

CUMES - CUMULATIVE SOIL EVAPORATION, MM. 

CUMRAN - CUMULATIVE RAINFALL, MM* 

CUHSOtC - CUMULATIVE SOAK THROUGH, MM. 

0 - DEPTH (VERTICAL) (?f EACH SOIL CELL, IN CM. 

DACNT - NUMBER OF DAYSAMONTH 

DAMP - damping factor TO APPROXIMATE LINEARIZATION OF EXPONENTIAL 
DECAY MJiSPONSE. 

DAYL1 - FRACTION OF 24 HOUR PERIOD IN DAYLIGHT 

DAYL2 - FRACTION OF 24 HOUR PERIOD IN NIGHT 

DAYLNG - OAYLENCTH IN HOURS 

DAYNUM - DAY NUMBER OF THE YEAR, IN JULIAN DAYS. 

DAYTYm - time from sunrise to SUNSET IN HOURS 
DAZE - DAY OF MONTH 

DEL - SLOPE OF SATURATION VAPOR PRESSURE CURVE AT MEAN AIR 
SOIL SURFACE, IN MM/OAY. 

DELT = increment O' TIME OVER liHICH upfAKE AND CApILLArV flow is 
SIMULATED, IN DAYS 

DES - percentage OF FLORETS TO BE DESSICATEO 
OFAC - DESSICATION FACTOR 

OIFCN - DIFFERENTIAL CARBON NITROGEN QUOTIENT. 

DIFF - DIFFUSIVITY OF SOIL, IN CM BAR/DAY. 

DIFSEN - day of DIFFERENTIATION 

DIFSCA - VECTOR OF BREAK POINTS FOR GRAPHICAL INTERPRETATION OF 
SOIL WATER DIFFUSIVITY, IN CM**2 PER DAY. 

DIFUNI - VECTOR USED TO WRITE UNITS OF SOIL WATER DIFFUSIVITY. 

DNODE - NUMBER OF NODES ON EACH STEM JOINTING TO ELONGATE TODAY 
DPSIDT - DERIVATIVE OF WATER POTENTIAL WITH RESPECT TO MOISTURE 
CONTENT, IN BARS/CC/CC. 

DRAD - ARRAY OF DAILY RADIATION AMOUNTS NOT INTERCEPTED BY PLANTS 
IN LANGLEYS. 

OTAH - ARRAY OF DAILY MAXIMUM (HIGH) AIR TEMPERATURES, IN DEG F. 

OTAL - ARRAY OF DAILY MINIMUM (LOW) AIR TEMPERATURES, IN DEG F. 

OTAVG - (J) THE AVERAGE DAYTIME TEMPERATURE FOR J DAYS AGO. 

OUMAY - DUMMY ARRAY USED FOR LOCAL DIMENSIONED VARIABLES 
0UMAY1 - DUMMY ARRAY USED FOR LOCAL DIMENSIONED VARIABLES. 

OUMIYO - DUMMY fclRAY TO SET ASIDE CORE 

DUMY01 - DUMMY VARIABLE, USED TO REDUCE CPU TIME. 

DUMYQ2 - DUMMY VARIABLE, Of!SED TO REDUCE CPU TIME 
OUMY03 - DUMMY VARIABLE, USED TO REDUCE CPU TIME 
OUMY04 - dummy variable, USED TO REDUCE CPU TIME. 

OWRT - ACTUAL INCREMENT OF ROOT HEIGHT FOR A GIVEN CELL, IN 
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Grt/CELL^DAy. 

£ - TOTAL EVAPOfiATIVE LOSS FROM CROP. 

fc'O - POTENTIAL EVAPORATION RATE AETOVE fHE« PLANT CANOPY/ ^'IN MM/OAY. 

EP - EVAPORATION RATE FROM PLANT LEAVES/ TRANSPIRATION, IN MM/OAY. 

£S - EVAPORATION FROM “soil SURFACE, IN MM/OAY. 

ESO - POTENTIAL EVAPORATION RATE BELOW FLANT CANOPY AT THE SOIL 

SURFACE IN MM/OAV. 

£SX - EVAPORATION RATE FROM THE SOIL SURFACE DURING STAGErE 

EVAPORATION ON A DAY WHEN P LESS THAN SESII, IN MM/'JaY. 

F2 - RESERVE NITROGEN AVAILABILITY COEFFICIENT 

FACL CALIBRATION FACTOR TO ADJUST POTENTIAL CHANGE IN LEAF AREA 

FO - field CAPACITY OF SOIL LAYER, IN CH**3/CM**3. 

FERN “ FERTILIZER NITROGEN APPLIED, IN LBS., N/ACRE. 

FLOCAP - FIELD CAPACITY OF OOITOM SOIL LAYERV CM**3/CM**3. 

FLORET - <I) NUMBER OF FLORETS (GRAIN) ON STEM I 
FNHA - FRACTION OF FERTILIZER NITROGEN WHICH IS AMMONIUM, 
dimensionless. 

FNICN - FLUX OF NITROGEN INTO THE CELL, NET, IN MG N/CGLL. 

FNL - FLUX OF NITROGEN TO THE LEFT OUT OF THE CELL, MG N/CELL. 

FN03 « FRACTION OF FERTlUZER NITROGEN WHICH IS NITRATE, DIMENSIONLESS 
FNU - FLUX OF NITROGEN UPWARD OUT OF THE CELL, MG N/cELL. 

FWICN - FLUX OF WATER INTO THE CELL, NET, IN CM**3/CELL. i 

FWL - FLUX OF WATER TO THE LEFT OUT OF THE CELL, IN CM**3/CELL. ' 

FWU - FLUX OF WATER UPWARD OUT OF THE CELL, CM**3/CELL. 

G - WEIGHTING FACTOR, FOR GEOTRQPISM (THE PREFERENCE OF ROOTS 

TO GROW DOWNWARD). 

gamma - CONSTANT OF THE WET AND DRY BULB PSYCHROMETER EQUATION, 

IN MB/OEG C. 

GLUMCN - AVERAGE NITROGEN CONCENTRATION IN GLUMES 
GLUMN - TOTAL. GLUME NITROGEN (GRAMS) 

GLU^RI - GLUME' nitrogen REQUIREMENT FOR GROWTH (GRAMS) 

GLUMRS - GLUME NITROGEN RESERVES (GRAMS) 'W 

GLUMW - (I) TOTAL WEIGHT OF ALL GLUMES ON STEM I (GRAMS) 

GLUMWT - TOTAL WEIGHT OF ALL GLUMES ON PLANT (GRAMS) 

GRANCN - AVERAGE NITROGEN CONCENTRATION IN GRAIN 
GRANN « TO;(AL GRAIN NITROGEN (GRAMS) 

GRAVRi - GhAlN NITROGEN REQUIREMENT FOR GROWTH (GRAMS) 

GRAYW - (1) TOTAL WEIGHT OF ALL GRAIN ON STEM I , (GRAMS) 

GRANWT - total WEIGHT OF ALL GRAIN ON PLANT (GRAMS) 

H20 - TOTAL TEMPORARY AND RESIDUAL VOLUME OF H20 IN SOIL CELL, « 

IN CM**3/CM**2 

H203AL - WATER BALANCE ;■ 

HEAD - (1) DAY STEM I REACfTEO HEADING STAGE 

I - INOex (DAILY) USED IN MANIPULATING DAILY WEATHER VARIABLES, 

lOAY - OAY COUNTER WITH DAY 1 BEING OAY OF EMERGENCE. ONLY DAYS 
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JHEN AVERAGE TEMPERATURE AT OR ABOVE 4 pEG C ARE COUNTED 
lOIFF - DELAYS FOR BOOT JOINTING HEADING BETWEEN STEMS 

- HOUR OF THE DAY, FROM MIDNIGHT. 

IH9 - NINE HOURS FROM THE CURRENT TIME. 

IHGKOL - IMAGE KOLUMN 

INT - FRACTION OF SOLAR RADIATION INTERCEPTED BY CROP, DIMENSIONLESS 
tPRNT - INCREMENT OF DAYS BETWEEN PRINTOUT 

IRC - INDE;< for- WEIGHING ROOT GROWTH TO THE RIGHT IN RESPONSE 

- TO WATER POTENTIAL. , 

ISPLTS - DUMMY FOR NUMBER OF SPIKELETS FOR STEM V, 

ISR - HOUR OF SUNRISE. MIDNIGHT IS 0. ^ 

ISS - HOUR OF SUNSET. MIDNIGHT IS ,0. 

I SSI - HOUR OF SUNSET PLUS ONE. 

ITGF • TIME FOR GRAIN FILL (DAYS) 

lYR - YEAR/4 

J - INDEX (DAILY) USED IN MANIPULATING DAILY WEATHER 

V AR I A8l ES • 

JG - MIN PERCENTAGE OF NEW GLUME GROWTH REQUIRED TO BE NITROGEN 

JG1 - MIN r-'ERCENTAGE OF NEW GRAIN GROWTH REQUIRED TO BE NITROGEN 

JL - MIN PERGENTAGE OF NEW LEAF- GROWTH REQUIRED TO BE NITROGEN 

JM1 - AN INDEX FOR SOIL TEMPERATURE. 

JOINT - (I) IDAY STEM I BEGAN JOINTING STAGE 

JR - MIN percentage OF NEW ROOT GROWTH REQUIRED TO BE NITROGEN 

JS ~ MIN PERCENTAGE OF NEW STEM -GROWTH REQUIRED TO BE NITROGEN 

K - COLUV.*; NUMP.ER OF ARRAY. 

<1 - PART OF OPERATION FOR CALCULATION OF WATER FLOW 

X2 - PART OF OPERATION FOR CALCULATION OF WATER FLOW 

KA - ARRAY OF CHARACTERS AVAILABLE TO PRINT ON THE MAP. 

KS - MIN LEVEL OF NITROGEN IN GLUME ( X OF GLUME WEIGHT ) 

XHAR - CHARACTERS PRINTED ON THE MAP. 

KL - MIN LEVEL OF NITROGEN IN LEAF ( X OF LEAF WEIGHT ) 

XL1 ^ column to left OF source OF ROOT GROWTH 

KOLJMN - COLUMN OF SOIL IN THE PROFILE, 1 TO NK. 

KR - MIN LEVEL OF NITROGEN IN ROOTS ( X OF ROOT WEIGHT ) 

KRL - COLUMN COUNTER FOR THE LAYER 

KS - MIN LSVEL OF NITROGEN IN STEM { X OF STEM WEIGHT ) 

L - LAYER NUMBER OF ARRAY. 

L1 - LAYER 1 ., 

L19 - LAYER 19. 

L20 - LAYER 20. 

LAI - LEAF AREA INDEX 

lAMDA - TOTAL ALBEDO OF CROP AND SOIL, DIMENSIONLESS. 

LAMOAC - ALBEDO OF CROP, DIMENSIONLESS. 

LAMOAS ^ ALBEDO OF SOIL, DIMENSIONLESS. 

LATUOE - LATITUDE (OEG) 
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LAYER - LAYER OF SOIL IN THE PROFILE. 

Lc - K - 1 

LOT - layer below SOURCE CELL OF ROOT GROWTH 
LOC - INDEX FOR WEIGHING ROOT GROWTH DOWNWARD IN RESPONSE TO 
- WATER POTENTIAL 

LEAF - (J) NUNRER of LEAVES ON STEM I 

LEAFCN - LEAF NITROGEN CONCENTRATION 

LEAFR1 - leaf NITROGEN REQUIREMENT FOR GROWTH (GRAMS) 

LEAFRS !• LEAF NITROGEN RESERVES (G) 

LEAFW - <1,J) WEIGHT OF INDIVIDUAL LEAF 

LEAFWT - TOTAL WEIGHT OF ALL LEAVES ON PLANT ( GRAMS ) 

LIDATE - (I,J> IDAY WHEN LEAF J ON STEM I WAS INITIATED 

LLDAY - (I) IDAY LAST LEAF INITIATED ON STEM I c- 

LR - DEEP^EST LAYER CONTAINING ROOTS 

LTDAY - (I)ClOAY LAST TILLER INITIATED ON STEM I 

MAXMIN - TMAX MINUS TMIN 

MH20 - METHOD OF WATER A,PPLICAT10N . 

MO - MONTH I- 

N INDEX VARIABLE* ' “ 

N0O - DUMMY VARIABLE FOR NUMBER OF BOX IN STORAGE TRAIN, 

USED FOR ITERATION, 

NBOX “ 'BOXCAR* OF RTWT ARRAY, CONTAINING ROOTS GROWN DURING A 
PARTICULAR DAY, IN GMS/CELL. 

NF - FACTOR FOR LIMITING FRUIT GROWTH IN RESPONSE TO N SHORTAGE. 

NIT - amount OF INORGANIC NITROGEN PRESENT IN SOIL, IN MG N^CC SOIL. 

NITUNT - VECTOR USED TO WRITE UNITS OF TOTAL NITRATE IN THE PROFILE. 

NX - NUMBER OF COLUMNS IN THE PROFILE. 

NKES - NUMBER OF COLUMNS IN WHICH SOIL EVAPORATION OCCURS 

NXH - HALF THE NUMBER OF COLUMNS IN THE PROFILE. 

NKHP1 - HALF THE NUMBER OF COLUMNS’ PLUS ONE. 

NXHPZ ^ HALF THE NUMBER OF COLUMNS PLUS TWO, 

NXX - COLUMN, MIRRORED ABOUT CENTER LINE OF PROFILE. 

NKM - NUMBER OF COLUMNS MINUS 1. 

NL - NUMBER OF LAYERS OF SOIL IN THE PROFILE. 

NLL - NUMBER OF LAYERS MINUS 1. 

NLR - NUMBER OF LAYERS CONTAINING ROOTS 

NODE - Cl) NUMBER OF NODES ON THE STEM 

NOITR - DO NOITR ITERATIONS DURING DAY AND NOITR ITERATIONS DURING NITE 
NPD 0- TRIGGER TO DETERMINE IF 'MAP* OF OIFFUSIVITY PRINTED DURING 
EXECUTION. 

NPN - TRIGGER TO DETERMINE IF 'MAP' OF NITRATE CONTENT PHINTED 
DURING EXECUTION. 

NPOOL - NITROGEN POOL (AVAILABLE), GRAMS 

VP? - TRIGGER TO DETERMINE If 'MAP' OF WATER POTENTIAL PRINTED 
DURING EXECUTION. 
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NPR - TRIGGER TO OETERMINE IF 'MAP' OF ROOTS IS PRINTED DURING 
EXECUTION. 

NPW - TRIGGER TO DETERMINE IF 'MAP' OF WATER CONTENT IS PRINTED 
DURING EXECUTION. 

NSTEMS - NUMBER OF STEMS ON THE PLANT 
NSTMH -NUMBER OF STEMS HEADING 
NSTRES - NITROGEN STRESS 

NV - FACTOR FOR LIMITING VEGETATIVE GROWTH IN RESPONSE TO N SHORTAGE 

NYTTYM - TIME FROM SUNSET TO SUNRISE^ IN HOURS 

OMA - ORGANIC MATTER ADDED TO THE P|,OW ZONE AT BEGINNING' Of 

SEASON, IN LBS/ACRE. 

■P - RAINFALL (LOCAL VARIABLE), IN MM/DAY. 

PAH20 - ‘PERCENT AVAILABLE WATER, OR VOLUMETRIC WATER CONTENT 

ABOVE WILTING POINT DIVIDED BY FIELD CAPACITY MINUS WILTING 
POINT, ^ IN PERCENT. 

POGf.UM “ (I) P'OIENTIAL CHANGE IN WEIGHT OF GLUMES ON STEM I (GRAMS) 

POQWAN - (I) POTENTIAL change IN WEIGHT OF, GRAIN ON STEM I (GRAMS) 

PDST'EM - (I) POTENTIAL CHANGE IN WEIGHT Of STEM I (GRAMS) 

POWL - (I.-J) POTENTIAL CHANGE IN WEIGHT OF LEAF J ON STEM 1, GRAMS 

POWRt •• POTENTIAL INCREMENT OF ROOT WEIGHT IN A GIVEN CELL, IN GM/DAY. 
PLAUTN - total nitrogen CONTENT OF PLANT (GRAMS) 

PLANTW - PLANT WEIGHT (GRAMS) 

PLTN - TOTAL NITROGEN CONTENT OF PLANT 

PN - NET PHOTOSYNTHATE AVAILABLE FOR GROWTH ( GRAMS ) 

PNFAC - MIN VALUE FOR PN 

POLINA - POLLINATION TRIGGER 

POPFAC •> POPULATION FACTOR (0M**2/pLANT) 

POF'PLT - plant POPULATION, IN PLANTS/ACRE. 

PPLANT - GROSS PHOTOSYNTHATE PRODUCED PER PLANT TODAY (GRAMS) ^ " 
PSIAVG - AVERAGE WATER POTENTIAL OF ROOT -ZONE, IN BARS. 

P8IL - AVERAGE LEAF HATER POTENTIAL, BARS 

PSIMAX - MAXIMUM WATER POTENTIAL IN PROFILE OCCUPIED BY ROOTS 
IN BARS. 

PSINUM •• THE NUMBER OF CELLS OF WHICH PSIAVG IS CALCULATED / 

PSIS - SOIL WATER POTENTIAL, IN BARS. 

PSISCA - VECTOR OF BREAK POINTS FOR GRAPHICAL INTERPRETATION OF SOIL 
WATER POTENTIAL IN BARS. \ 

PSITOT - TOTAL OF PSI ' :> 

PSIUNI - VECTOR USED TQ WRITE UNITS OF SOIL HATER POTENTIAL. 

PSTANO - GROSS DAILY PHOTOSYNTHATE PRODUCTION (GRAMS C02/M**2/DAY) 

PTSN - LOW NITROGEN CONCENTRATION PHOTOSYNTHESIS REDUCTION FACTOR 
PTSPED - REDUCTION FOR PHOTOSYNTHESIS IN RESPONSE TO MOISTURE STRES’S 
RAO - AVERAGE DAILY SOLAR RADIATION FOR THE PREVIOUS WEEK, 

IN LANGLEYS/OAY. I ' 

RAOAY RATE OF AREA GROWTH 
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RA0L1 - RAO LAGGED 0Y ONE WEEK. 

RAIS - RAINFALL OR IRR,t6ATI0N, IN MM/OAY. 

RANGE - ARRAY OF 11 NUM/^ERS TERMINATING THE RANGE OF EACH OF THE 
10 CHARACTERS l,'(SED ON THE MAP. 

RANGE1 - ARRAY OF 11 NUMBERS TERMINATING THE RANGE OF EACH OF THE 
10 CHARACTERS USED ON THE MAP. 

RCH30 - ROOT CARBOHYDRATE SUPPLY PER PLANT, IN GM/J»LANT. 

RCHOS-5 - ROOT CARBOHYDRATE FOR SOIL SLAB, <100 CM**2), IN GM/100 CM**2. 

RECOAT - HOURLY TEMPERATURES OF THE SOIL LAYER, IN DEG C. 

REQN • TOTAL NITROGEN REQUIREMENT FOR GROWTH, GRAMS 

RESC - TOTAL RESERVE CARBOHYDRATES FOR PLANT (GRAMS) 

RESCF - LEAF LOADING FEEDBACK flEOUCTION FACTOR FOR PHOTOSYNTHESIS 
RESN - TOTAL RESERVE NITROGEN (GRAMS) 

RESP - RESPIRATION LOSS (GRAMS) 

RFEP REDUCTION FACTOR FOR TRANSPIRATION DUE TO WATER STRESS ON 
CROP, dimensionless. 

RFEPD - REDUCTION FACTOR FOR TRANSPIRATION DUE TO MOISTURE STRESS, DAY 
RFEPN - REDUCTION FACTOR FOR TRANSPIRATION DUE TO MOISTURE STRESS, NIGHT 
RFWST - GROWTH REDUCTION FACTOR DUE TO WATER STRESS 
RGCF - ROOT GROWTH CORRECTION FACTOR, DIMENSIONLESS. 

SI - INCIDENT SOLAR RADIATION ( LANGLEYS/OAY ) 

RN - NET radiation, IN WATTS/M**2, 

RNNHA - RESIDUAL NITROGEN AS AMMONIUM IN SOIL AT BEGINNING OF 
SEASON, IN LBS/ACRE. 

RNN03 - RESIDUAL NITROGEN AS NITRATE IN SOIL AT BEGINNING OF 
SEASON, IN LBS/ACRE. 

RNO - NET RADIATION ABOVE THE CANOPY, IN MM/OAY. 

RNS - NET RADIATION AT THE SOIL SURFACE BELOW THE CANOPY, IN MM/OAY. 

ROOSCA - VECTOR OF BREAK POINTS FOR GRAPHICAL INTERPRETATION OF 
ROOT WEIGHT DENSITY. 

ROOTCN - AVERAGE NITROGEN CONCENTRATION IN ROOTS 
ROOTN - TOTliL ROOT NITROGEN (GRAMS) 

R00TR1 - ROOT NITROGEN REQUIREMENT FOR GROWTH 
ROOTRS - ROOT NITROGEN RESERVES (GRAMS) 

ROOTS - DRY WEIGHT OF ALL LIVING ROOTS IN PROFILE, IN GRAMS. 

ROOTSV - ARRAY OF TOTAL DRY ROOT WEIGHT IN EACH SOIL CELL. 

ROOTJT - TOTAL ROOT WEIGHT FOR PLANT (GRAMS) 

ROOTXP - ROOT growth EXPONENT 

ROWSP - ROWS- SPACING 

RS - SOLAR RADIATION, IN MM/DAY. 

RTP1 - PARTITIONING COEFFICIENT FOR MOVING ROOT MATERIAL FROM ONE AGE 
CLASS TO ANOTHER 

RTP2 - PARTITIONING COEFFICIENT FOR MOVING ROOT MATERIAL FROM ONE AGE 
CLASS TO ANOJC^P. 

RTWT - ARRAY OF RO(i r W'eigHTS BY CELL AND BY AGE CLASS, IN CMS. 
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RTUTC6 “ WEIGHT OF ROOTS CAPAatE OF GROWTH, IN QMS/CEUL. 

RTWTCU - ROOT WEIGHT CAPABLE Of WATER UPTAKE# IN GM OM/CEL(., 

SECOND - NUMBER SECONDARY ROOTS ON PLANT 7 

SESI - CUMULATIVE EVAPORATION FROM THE SOIL SURFACE OURtNG STAGE 1# 

IN MM. " 

SESI I - CUMULATIVE EVAPORATION FROM THE SOIL SURFACE DURING STAGE 2# 
IN MM. f' 

SH - ACCUMULATOR FOR UPTH20 WITHIN THE PROFILE. I 

SHRTO - SUM OF HOURLY TEMPERATURES DURING THE DAYTIME, IN DEG C. 
SHRTN « SUM OF HOURLY TEMPERATURES DU^j^lNG THE NIGHTTIME,. IN DEG C< 
SLEAFN - TOTAL LEAF NITROGEN (GRAMS) 

SLF - SLOUGHING FACTOR# FRACTION OF BOTH YOUNG AND OLD ROOTS 
WHICH ARE SLOUGHED EACH DAY# IN 1/DAYS. ^ 

SN - ACCUMULATOR FOR UPN03C WITHIN THE PROFILE. I 
SOA<N - fJtTROGEN SOAKING INTO CELL 1 FROM ABOVE, IN Mft !N/CM«*2. 

SOA<W - WATER SOAKING INTO CELL I FROM ABOVE# IN CH*>3j'CM**2 . 

SOR - SUM OF OLD ROOTS IN A GIVEN CELL, IN GM/CELL. ; 

SPDGLM - SUM OF TODAYS POTENTIAL CHANGE IN GLUME WT. (GlRAMS) 

SPDGRN - SUM OF TODAYS POTENTIAL CHANGE IN GRAIN WT. (GRAMS) 

SPOST.M - SUM OF TODAYS POTENTIAL CHANGE IN STEM WT, (GRAMS) 

SPOWL - SUM OF TODAYS POTERTIAL CHANGE IN LEAF HT. (GRAMS) 

SPDWRT - SUM OF TODAYS POtENTlAL CHANGE TN ROOT Wt. fCWAHsl 

SPIKE - (I) NUMBER OF SPIKLETS ON STEM I 

SPN - RUNNING TOTAL OF PN PRODUCED C GRAMS ) 

SPRING - NUMBER OF DAYS FROM EMERGENCE TO FIRST DAY OF SPRING 
SQRT(T)-^ FORTRAN FUNCTION - SOUARE ROOT. 

SRAO - weekly sum OF SOLAR RADIATION, IN LANGLEYS. 

SRAVG * accumulated TEMP SINCE INTIATION OF LAST SECONDARY ROOT (C) 

SRDAY - LAST SECONDARY ROOT INTIATEO ON THIS DAY 

SRPS15 - SUM OF RECIPROCAL SOIL WATER POTENTIALS, IN 1KARS, 

SRUP “ SUM OF RECIPROCAL WATER POTENTIALS, IN 1/BARS. 

STAH - WEEKLY SUM OF DAILY MAXIMUM AIR TEMPERATURE, |IN DEG F. 

STAL - WEEKLY SUM OF DAILY MINIMUM AIR TEMPERATURE, IN DEG F. 

STARCH - RATIO OF STARCH TO TOTAL LEAF WEIGHT 
STEMBG - next STEM TO BEGIN JOINTING 
STEHCN “ AVERAGE NITROGEN CONCENTRAf ION IN STEMS 
STERJ - NUMBER OF STEMS TO BEGIN JOINTING TODAY 
STEMN - TOTAL STEM NITROGEN (GRAMS) 

STENNO - LAST STEM THAT HAS BEGUN JOINTING 
STERR1 - STEM REQUIREMENT FOR VEGETATIVE GROWTH 
STEMRS - STEM RESERVES OF NITROGEN (GRAMS) 

STEMW - (I) WEIGHT OF STEM 1 (GRAMS) " 

STEMWT - TOTAL WEIGHT OF ALL STEMS ON PLANT ( GRAMS ) 

STRESO - FRACTION OF DAY LENGTH DURING WHICH PLANT IS NOT- UNDER 
MOISTURE STRESS. 
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STRESN - FRACTION OF NIGHT tI«E DURING WHICH PLANT IS NOT UNDER 
MOISTURE STRESS. 

SUPF - SUM OF UPTAKE FACTORS OF THE CELLS, IN 6M CM/OAY. 

SUPN03 - SUPPLY OF NITRATE TO PLANTS FROM SOILi; IN MG/OAY. 

SWING - DIFFERENTIAL TEMPERATURE OF THE SOIL LAYER FOR THE DAY, I 
SWINGH - HALF THE DIFFERENCE BETWEEN THE MAXIMUM AND MINIMUM 
TEMPERATURES. 

SWINGT - DIFFERENTIAL TEMPERATURE OF THE SOIL LAYER FOR THE DAY, 

IN DEG C. 

SWINGY - OIFFERENTJAL TEMPERATURE OF THE SOIL LAYER FOR THE DAY, 

IN DEG C.' 

TUH - MAXIMUM (HIGH) TEMPERATURE AT U-INCH DEPTH, IN DEG F. 

T16L - MINIMUM (LOW) TEMPERATURE AT 16-INCH DEPTH, IN DEG F. 

T2A - DIFFERENCE BETWEEN TEMPERATliHES AT 2 AND A INCHES. 

T2H - MAXIMUM (HIGH) TEMPERATURE AT 2-INCH DEPTH, IN DEG F. 

T2L - MINIMUM (LOW) TEMPERATURE AT 2-INCH DEPTH, IN DEG F. 

TAB - DIFFERENCE BETWEEN TEMPERATURES AT 2 AND A INCHES. 

TAH - MAXIMUM (HIGH) TEMPERATURE AT A-INCH DEPTH, IN DEG F. 

TAL - MINIMUM (LOW) TEMPERATURE AT A-iNCH DEPTH, IN DEG F. 

T8I6 = artificial yARIASLE FOR USE IN INTiRRQLATlQN AMD EXTRAPOLATION 
T8H - MAXIMUM (HIGH) TEMPERATURE AT 3-INCH DEPTH, IN DEG F. 

T8L - MINIMUM (LOW) TEMPERATURE AT 8-INCH DEPTH, IN DEG F. 

TAH ■ - AVERAGE DAILY MAXIMUM AIR TEMPERATURE FOR THE PREVIOUS 

WEEK, IN DEG F. 

TAHl.1 - TAH LAGGED RY ONE WEEK. 

TAHL2 - TAH LAGGED BY TWO WEEKS. 

TAL - AVERAGE DAILY MINIMUM AIR TEMPERATURE FOR THE PREVIOUS 

WEEK, IN DEG F. 

TALL1 - TAL LAGGED BY ONE WEEK. 

TALL2 - TAL LAGGED BY TWO WEEKS. 

TAVG - DAILY AVERAGE TEMPERATURE, IN DEG C. 

TAVM1 - AVERAGE TEMPERATURE MINUS 1 DEG, IN DEG C. 

T8L - TIME BETWEEN LEAVES (DAYS) 

TBSR - TIME BETWEEN SECONDARY ROOTS (DAYS) 

T8T - time between TILLERS (DAYS) 

TO - DR,Y BULB TEMPERATURE, IN DEG C. 

TDAY - AVERAGE DAYTIME TEMPERATURE. 

TOES - (I) X OF FLORETS OESSICATEO ON STEM I DURING ANTHESIS 

TH20 - TOTAL WATER IN THE PROFILE, MM. 

TH2DC - TOTAL TEMPORARY AND RESIDUAL VOLUME OF H20 IN//SOIL CELL, 

IN CM**3/CM**2. 

THRLN - THRESHOLD WEIGHT TO GIVE LENGTH OF ROOTS REACHING OPPOSITE 
boundaries OF CELL fROM WHICH GROWTH ORIGINATED, IN GMS. 

TILLER' - first TILLER INITIALED ON THIS. DAY 

TMAX - MAXIMUM TEMPERATURE DURING THE DAY, IN DEG C. 
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TMEAN - mean temperature OF THE SOIL LAYER FOR THE DAY/ IN OEG C* 

TMEANT - MEAN TEMPERATURE OF THE SOIL LAYER FOR THE DAY, IN OEG C. 

TMEANY - MEAN TEMPERATURE OF THE SOIL LAYER FOR THE DAY^ IN OEG C. 

TMIN - MINIMUM TEMPERATURE DURING THE DAY, IN OEG C. 

T.MP - AIR TEMPERATURE 

TNNH4 - TOTAL NITROGEN AS AMMONIUM IN THE PROFILE, IN MG N/SOIL SLAB 
TNN03 - TOTAL NITRATE IN THf/PROflLE, MG N. 

TNYT - AVERAGE NIGHTIME TEMPERATURE. 

TOTAL - TOTAL OF CONTENTS OF THE CELLS IN THE PROFILE. 

TRANSP - TRANSPIRATION RATE^ IN MM/OAY. 

TSAL - AVERAGE SOIL TEMPERATURE IN THE LAYER. 

TSOL - TEMPERATURE OF SOIL LAYER OURING DAYTIME 

TS.MN - ARRAY OF MINIMUM SOIL TEMPERATURES FOR THE DAY, BY LAYER, 

IN OEG c. y 

TSMX - ARRAY OF MAXIMUM SOIL TEMPERATURES FOR THE DAY, BY LAYER, 

IN OEG C. ^ 

TSNL - TEMPERATURE OF SOIL LAYER OURING NIGHTIME. 

TSOAX - TOTAL WATER SOAKING THROUGH BOTTOM OF PROFILE, MM. 

TSOILD - AVERAGE TEMPERATURE OF THE LAYER OURING DAYTIME, IN OEG C. 

TSOILN “ AVERAGE TEMPERATURE OF THE LAYER 0UR4NG NIGHTTIME, IN OEG C. 

TSOLAV - AVERAGE TEMPERATURE OF THE LAYER OVER 24 HOURS, IN OEG C. 

TTLB - TITLE USED FOR GRAPHICAL OUTPUT. 

TTL1 - LINE 1 OF TITLE OF MAP. 

TTLiR - LINE 1 OF TITLE OF MAP 

TTL2 - LINE 2 OF TITLE OF MAP. 

TTL2R - LINE 2 OF TITLE OF MAP 

TTLA - TITLE USED FOR GRAPHICAL OUTPUT. 

TW - WET BULB TEMPERATURE, IN OEG C. 

U - UPPER LIMIT OF CUMULATIVE EVAPORATION FROM SOIL OURING STAGE 

1 DRYING, IN MM. // 

UPF - UPTAKE FACTOR USED TO APPORTION WATER UPTME AMONG 
CELLS, IN GM CM/OAY. \( 

UPN03 - UPTAKE OF NITRATE FROM THE CELL, IN MG N/cAY. 

UPN03C - UPTAKE OF N03 FROM CELL, MG N/OAY. 

UPN03I - UPTAKE OF N03 FROM IMAGE CELL, MG N/DAY. 

UPTH20 - uptake of WATER FROM THE CELL, IN CM**3/0AY. 

VEGWT - TOTAL PLANT WEIGHT LESS GRAIN WEIGHT (GRAMS) 

VH20C - VOLUMETRIC WATER CONTENT OF A CELL, IN CM**3/CM**3. 

VH2UNI - VECTOR USED TO WRITE UNITS OF VOLUMETRIC WATER CONTENT. 

VNH4C - volumetric NITROGEN CONTENT AS AMMONIUM IN SOIL, IN 
MG N/CC SOIL. 

VN03C - VOLUMETRIC NITROGEN CONTENT AS NITRATE, MG N/CC SOIL. 

VNOSCA - VECTOR OF BREAK POINTS FOR GRAPHICAL INTERPRETATION OF 
VOLUMETRIC ilNlTR ATE CONTENT IN MG N PER CC SOIL. 

VNOUNI - VECTOR USED TO WRITE UNITS OF VOLUMETRIC NITRATE CONTENT. 
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VP - SATURATION VAPOR PRESSURE FUNCTION OF AIR TEMPERATURE, 

YIELDS MB. 

VPA - SATURATION VAPOR PRESSURE AT WET BULB TEMPERATURE, IN MS. 

VPO - SATURATION VAPOR PRESSURE AT DRY BULB TEMPERATURE, IN MB. ,, 

W - WIDTH OF EACH SOIL CELL, IN Cfl. 

WATTSM - INCIDENT RADIATION IN WATTS/SQ M. 

UNO UINORUN IN MILES PER DAY / 

USTRSD - REDUCTION FACTOR FOR WATER STRESS DURING DAY. RATIO OF TIME 

LEAF IS TURGID ENOUGH (ABOVE -7 BARS) FOR GROWTH TO OAYLENGTH 
WSTRSN - REDUCTION FACTOR FOR H20 STRESS DURING THE NIGHT 
WTAVG - AVERAGE TEMPERATURE FOR THE LAST 7 DAYS. 

UTAVGF - AVERAGE TEMPERATURE FOR THE LAST 7 DAYS IN FARENHEIT. 

WTBSLF - WEIGHT TO BE SLOUGHED 

JTF - FACTOR FOR CONVERTING LEAF WEIGHT TO AREA 
WTSLFD - TOTAL ROOT WEIGHT SLOUGHED ^ 

XLEAFL - LENGTH OF LARGEST LEAF ON PLANT (CM) 

AMAXLW - WEIGHT OF LARGEST LEAF ON PLANT (GRAMS) 

XTRAC - EXTRA CARBOHYDRATE (GRAMS) 

XfRAN - EXTRA NITROGEN (GRAMS) 

YIELD - YIELD IN BUSHELS/ACRE 

YR - YEAR 

,1 


I 




¥ 
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Appendix d. Typical Output 
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NUMBER OF SOIL LAYERS S 
LAYER MAX. DEPTH 


NO. 

1 

Z 

3 

A 

5 


CM 


OC 

CM 


THETA 0 
aAR/OAY 


BETA 
CC/CC 


2.250E+01 5.‘l0aS-02 1.68QE-01 4.012E+Q1 
5.250Et0r2.ai0E-Q1 2.5806-01 4.319E+01 
9.010E+01 1.750E-01 1.620E-01 3.2836+01 
1,5016+02 1.990E-01 1.400E-01 2.937E+01 
2.0016+02 1. 8306-01 1.040E-01 2,7936+01 
INITIAL VH20 AT BOTTOM BOUNDARY « 4.100E+01 
SOIL ID. NORFOLK S L NO. OF CURVES 7 


NO. OF DATA POINTS 4 QRAVIMETRIC 

WATER 

CONTENT 

BULK DENSITY 

SOIL STRENGTH 


1 

GN/CC 

KG/CM2 



0.90 

0.10 



1,10 

5.40 



1.30 

16.20 



1.50 

36.00 



1.70 

■ 62.00 



1.90 

93.00 



NO. OF DATA POINTS 6 GRAVIMETRIC 

water 

CONTENT 

BULK DENSITY 

SOIL STRENGTH 



GN/CC 

KG/CM2 



0.90 

0.10 



1.10 

2.50 



1.30 

7.80 



1.50 

22.60 



1.70 

44.50 



1.90 

71.30 



NO. OF DATA POINTS 6 GRAVIMETRIC 

WATER 

CONTENT 

BULK DENSITY 

SOIL STRENGTH 



eit/rr 

lea/rft? 



0.90 

0.10 



1.10 

1.00 



1.30 

• 2 .30 



1 . 50 

12.30 



1.70 

30.40 



1.90 

52.60 



NO.OF DATA POINTS 6 GRAVIMETRIC 

WATER 

CONTENT 

BULK DENSITY 

SOIL STRENGTH 


* 

GM/CC 

KG/CM2 



0.90 

0.10 



1.10 

0.90 



1.30 

1.70 



1.50 

7.50 



1.70 

21.50 



1.90 

31.20 



NO.OF DATA POINTS 6 GRAVIMETRIC 

WATER 

CONTENT 

BULK DENSITY 

SOIL STRENGTH 



GM/CC 

KG/ CM2 



0.90 

0.10 



1.10 

0.50 


* 

1.30 

1 .00 



1.50 

5.60 



1.70 

15.20 



1-.90 

29.80 



NO.OF DATA POI^JTS 6 GRAVIMETRIC 

WATER 

CONTENT 

BULK DENSITY 

SOIL STRENGTH 



GM/CC 

KG/CM2 



0,90 

0.10 



1,10 

0.20 



1.30 

0.50 



1.50 

4.90 



1.70 

13.90 



1,90 

27.70 



NO.OF DATA POINTS 6; GRAVIMETRIC 

WATER 

CONTENT 

BULK DENSITY 

SOIL strength 



GM/CC 

KG/ CM2 



0.90 

0.10 



1,10 

0.20 



1.30 

0.50 



1.50 

Cl. 90 



1.70 

1.10 



1.90 

1.30 



FERTILIZER : 

SUBROUTINE CALLED MKHKHKtftfttifUiniHltHltlf 

VN03CC1/1) a 

0.0893 




0,05 


0.07 


0.09 


0.11 


0.13 


0.15 


0.30 


FERTILIZER SUBROUTINE CALLED HKKUHKMHtfiniKKftintttlf 
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JULIAN 0AY>2^3 

IOAY« 

1 




PSTANO 

PtSN 

PTSREO 

RBSCF 

PPLANT 

RESP 

0.100E-Q1 

0.696E+0E 

0.100E+01 

d.lOOEtOI 

0.1D0E+01 

0.147E-05 

’ O.QOOE+00 

LEAfWr 

ST6MWT 

GLUMUT 

SRANWT 

ROOTUT 

SPN 

•: 

o.iooeto? 

0.294E-QA 

O.OOOE+00 

O.OOOE^OO 

o,,ia7E+oa 

0.100E-01 

i 

SPOWL 

SPOSTM 

SPOCLM 

SPOGRN 

SPOWRT 

CSTRSV 

CSTRSF !i 

a.102E-02 

O.SOOE-04 

d.OOOETQO 

O.OOOE-FOO 

a.1S9E-Q1 

o.saaE^oo 

D.100E+01 \ 

RE sc 

RESN 

REQN 

NPOOL 

NSTRES 

NV 

NF 

O.OOOE^QO 

o.iiae -01 

0.300E-03 

o.nae-oi 

G.tOOE+Ot 

G.iadE+oi 

O.ldOB+OI 

SLEAFN 

STEMN 

^LUMN 

GRANN 

LEAfCN 

SUPN03 


0.298E-01 

0.383E-Q6 

d.OOQEtOO 

a.OOOE^’OQ 

0.298E-01 

0.133B^D7 


SPIME(I) 

FLORETd) 

LEAF (I) 

JOiNTd) 

BOOT(I) 

HEAD < I) 

ANTHESCI) 

0 

0 t 

ft 

999 

999 

999 

999 

SECOND 

ACCDES 

PSIAVG . 

DIFREN 

TILLER 



0 

S.43 -a.30166E>CL 

999 

999 



OAYLNS 

LAI 

XLEAFL 

INT 

TAVG 



D.123E+02 

0.296E-C2 

0.306E+03 

a.261E-DS 

0.543E+01 

, 


RCH20 

STRSD 

STRSN ^ 

WSTRSO 

. . GP._ 

E$ 


3.937E-02 

"‘d.'idoetd’f 


■■G.fddE=s=G1 

0 /61 SE'^af 

■"anWifdf 

* ”* ** * 


VOLUMETRIC NI TRATE 'COMTENT OF SOIL JULIAN OAY 263 

AT THE ENO OF MAIN 



UNITS 

- 

MG/N 

PER CM**3 




LEGEND 


1 

2 

3 

4 

5 

6 




<■ 

0.0000 








0.0000 

< 

0 

<» 

0.0100 

1 

* 

* 

* 

* 

* 

• 






2 

* 

* 

* 

* 

* 

* 

0.0100 

< 

1 

<■ 

(|.0200 

3 

1 

1 

1 

1 

1 

1 





4 

d 

0 

n 

0 

c 

0 

0.0200 

< 

2 

<a 

0.0300 

5 

c 

0 

0 

0 

a 

Q 






6 

oO 

0 

0 

0 

0 

0 

0.0300 

< 

3 

<a 

0.0400 

7 

3 

0 

0 

0 

0 

0 






8 

0 

0 

a 

0 

0 

0 

0.0400 

< 

4 

<a 

O.QSOO 

9 

0 

0 

0 

0 

0 

0 






10 

0 

Q 

0 

0 

0 

d 

0.0500 

< 

5 

<a 

0.0600 

11 

0 

0 

0 

0 

0 

0 






12 

c 

0 

0 

0 

U 

0 

0.0600 

< 

6 

<■ 

0.0700 

13 












14 







0.0700 

< 

7 

<« 

0.0800 

15 












16 







o.oaoo 

< 

8 

<» 

0.0900 

17 












18 







0.0900 

< 

9 

<» 

0.1000 

19 












20 







0.1300 

< 

* 




TOTAL 

a 


94 

.2476 MG N 
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VOLUHETfttC UATSR CONTENT OF SOZU 
AT THE INO OF NAIN 



UNITS 

«• 

CN**3/CN**S 

SOIL 



LfOENO 


1 2 3 

4 

5 

6 

- 


0.0000 






OiOqoo < 

0 

X* 

0.0500 

1 

8 8 8 

8 

8 

D 




2 

8 8 8 

a 

8 

8 

0.0500 < 

1(1 <■ 

0.1000 

5 

9 9 9 

9 

9 

9 





4 

9 9 9 

9 

9 

9 

0.1000 < 

2 

<« 

0,1500 

5 

9 9 9 

9 

9 

9 





6 

9 9 9 

9 

9 

9 

0.1500 < 

3 

<■ 

0.2000 

7 

9 9 9 

9 

9 

9 





8 

9 9 9 

9 

9 

9 

0.2000 < 

4 

<■ 

0.2500 

9 

99 9 

9 

9 

9 





10 

9 9 9 

9 

9 

9 

0.2500 4 

5 

<■ 

0.3000 

11 

9 9 9 

9 

9 

9 





12 

9 9 9 

9 

9 

9 

0.3000 < 

6 

<■ 

0.3500 

13 

9 9 9 

9 

9 

9 





14 

9 9 9 

9 

9 

9 

^0.3500 

1 

<■ 

.o,^.^;<jOo 

TJ’ 

yyy r 

'9 


V. 

y- 


16 

9 9 9 

9 

9 

9 

0.4000 < 

8 

<m 

0.4500 

17 

9 9 9 

9 

9 

9 

/; 




18 

9 9 9 

9 

9 

9 

0.4500 < 

9 


0.5000 

19 

9 9 9 

9 

9 

9 





20 

9 9 9 

9 

9 

9 

0.5000 < 

* 




total 

• 


285.6189 

NN WATER 





ROOTS 

IN EACH CELL* 

TOTAL 





AT THE END OF RUTORO 





UNITS 

«• 

G/C«**3 SOIL 



LEGEND 


1 2 3 

4 

3 

6 



<m 

0.0000 






0.0000 < 

0 

<■ 

0.0001 

1 

6 2 0 








2 

3*1 




o.ooqi < 

1 


0.0005 

3 

2 0 







4 

5 

6 
7 
S 

0 




Q.goos < 

2 

<« 

n.nncF^ 





0,0050 < 

3 

<■ 

0.0100 





0.0100 < 

4 

<M 

0.0150 

10 





0.0150 < 

5 

<m 

0.0200 

11 







f 

12 





0.0200 < 

6 


0.0250 

13 








14 





0.0250 < 

7 

<■ 

0.0300 

15 





’ 




16 





0.0300 < 

8 

<« 

0.0350 

17 









13 





0.0350 < 

9 

<a 

0.0400 

19 









20 





0.0400 < 

• 




TOTAL 

m 


0.0347 

GN. dry weight 



P5ZS FOR EACH LAYER AND COLUHN 
AT THE END OF WAIN 



units 

«» 

C«**3/C.N**3 

SOIL 


. 


LEGEND 


1 

2 

3 

4 

5 

6 




<* 

-15.0000 








-15,0000 

< 

0 

<n 

-lO.OOOO 

1 

7 

7 

7 

7 

7 

7 






2 

7 

7 

7 

7 

7 

7 

-10.0000 

< 

1 

<a 

-6.0000 

3 

7 

7 

7 

7 

7 

7 






4 

7 

7 

7 

7 

7 

7 

•6,0000 

< 

2 

<a 

-3.0000 

5 

7 

7 

7 

7 

7 

7 






6 

7 

7 

7 

7 

7 

7 

-3.0000 

< 

3 

<a 

-1.5000 

7 

7 

7 

7 

7 

7 

7 





8 

7 

7 

7 

■7 

7 

7 

-1.5000 

< 

4 

<a 

-1 .0000 

9 

7 

7 

7 

7 

7 

7 






10 

7 

7 

7 

7 

7 

7 

-1 .0000 

< 

5 

<a 

-0.6000 

11 

7 

7 

7 

7 

7 

7 






12 

7 

7 

7 

7 

7 

7 

-0.6000 

< 

6 

<a 

-0.4000 

13 

7 

7 

7 

7 

7 

7 






14 

7 

7 

7 

7 

7 

7 , 

-0.4000 

< 

7 

<a 

-0.2000 

15 

7 

7 

7 

7 

7 

7 





* 

16 

7 

7 

7 

7 

7 

7 

-0.2300 

< 

8 

<a 

-0.1000 

17 

7 

7 

7 

7 

7 

7 






18 

7 

7 

7 

7 

7 

7 

-0.1000 

< 

9 

<a 

0.0000 

19 

7 

7 

7 

7 

7 

7 






20 

7 

7 

7 

7 

7 

7 

0.0000 

< 

• 




TOTAL » 285.6189 H« WATER 


a 


0 
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ROOTS 

IN EACH C£Ui 

TOTAU 







AT THE EWO OF ROTORO 






units 

- 6/CH»*3 SOIU 





LC8EN0 


1 

2 3 

4 5 6 




<» 

0.0000 





0.0000 

< 

0 

<• 

0.0001 

t 

5 

2 0 

0 






2 

3 

4 2 

1 0 0 

0.0001 

< 

1 

<■ 

0.0005 

3 

3 

2 1 

0 0 





4 

2 

2 1 

0 

0.0005 


2 

<• 

0.0050 

S 

2 

1 0 

0 





6 

1 

0 0 


0.0050 

< 

3 

<« 

C.0100 

" 7 

0 

0 





km 


3 

Q 

0 



0.01C0 

< 

4 

0.0150 

to 


'/ 


0.0150 

< 

5 

<m 

0.0200 

11 








0.0250 

12 




0.0200 

< 

6 

<• 

13 









14 




0.0250 

< 

7 

<■ 

0.0300 

15 








0.0350 

16 

17 

18 




0.0300 '•■i 

8 

<■ 




0.0350 

< 

9 

<• 

0.0400 

19 









2C 




0.0400 

< 

• 




JUUAN OAr 208 


TOTAl. ■ 0.080n-Gfl, DRY U6I6HT 

RSX3 OCR EACH UAYER AND COLUKR JUUAfl DAY 289 

AY THE end of NAIH 



UNITS 

« 

CH»*3/CN**3 

SOIL 




LEGEND 



1 

2 

3 

4 

5 

6 ’ 




<■ 

•15.0000 









•15.0000 

< 

0 

<■ 

-10.0000 


1 

2 

2 

2 

2 

2 

2 







2 

A 

7 

7 

Y 

7 

6 

”10.0000 

< 

1 


•6.0000 


3 

5 

6 

6 

6 

6 

5 







4 

6 

6 

6 

6 

6 

6 

-6.0000 

< 

2 

<« 

-3.0000 


5 

6 

7 

7 

7 

7 

6 







6 

7 

7 

7 

7 

7 

7 

-3.0000 

< 

3 

<■ 

-1.5000 


7 

7 

7 

7 

7 

7 

7 







8 

7 

7 

7 

7 

7 

7 

•1.5000 

< 

4 

<« 

-t.OQQO 


9 

7 

7 

7 

7 

7 

7 







10 

7 

7 

7 

7 

7 

7 

'rl.OOOQ 

< 

5 

<■ 

-0.6000 


11 

7 

7 

7 

7 

7 

7 







12 

7 

7 

7 

7 

7 

7 

-0.6000 

< 

6 

<•> 

-0.4000 


13 

7 

7 

7 

7 

7 

7 







14 

7 

7 

7 

7 

7 

7 

-0.4000 

< 

7 

<■ 

-0.2000 


15 

7 

7 

7 

7 

7 

7 







16 

7 

7 

7 

7 

7 

7 

-0.2000 

< 

a 

<•» 

-0.1000 


17 

7 

7 

7 

7 

7 

7 







18 

7 

7 

7 

7 

7 

7 

-0.1030 

< 

9 

<■ 

O.ocoo 


19 

7 

7 

7 

7 

7 

7 







20 

7 

7 

7 

7 

7 

7 

0.0000 

< 

• 





TOTAL 

■ 


277.9714 

H» HATER 







JULIAN DAY- 75 

lOAY- : 

50 



RN 

PSTANO 

PTSN 

PTSR6D 

R6SCF 

PPLANT 

R6SP 

3.29BE-01 

0. 6226^02 

0,1006+01 

0.7166-00 

0.2086+00 

0.4386-01 

0.0006+00 

LEAFUT 

STEHHT 

GLUNUr 

GRANHT 

ROOTWT 

SPN 


C.145E+01 

0.503B-02 

0., 0006+00 

0.0006+00 

Q. 9356+00 

0.1926+01 


SPDUL 

SPOiSTN 

SPOGLH 

SPOCRN 

SPOURT 

CSTRSV 

CSTRSF 

3.980E-02 

0.136E-03 

0.0006+00 

O.OOOS+00 

0.2386-01 

0.1006+01 

0.1006+01 

RESC 

RE5N 

REQN 

NPOOL 

NSTR6S 

NV 

NF 

0.537S+00 

0.176E-01 

0.1016-02 

0.1806-01 

0.1006+01 

0.1006*01 

0.1006+01 

SLEAFN 

STENN 

GLUMN 

GRANN 

L6AFCN 

SUPN03 


0.324E-O1 

0.1316-03 

O.OOOE^OO 

0.0006+00 

0.2256-01 

0.4616-03 


SRIjCEd) 

FLOflEm) 

LEAF(I) 

JOINT(I) 

8001(1) 

HEADd) 

ANTHESCI) 

0 

0 

6 

999 

999 

999 

999 

0 

0 

5 

999 

999 

999 

999 

0 

C 

5 

999 

999 

999 

999 

SECOND 

ACCDEG 

PS I A VO 

DIFREN 

TILLER 



10 

436.46 -0.178636+01 

31 

8 



oayunc 

LAI 

xleafl 

INT 

TAVC 



0.119£*02 

U.224E-01 

0.3206»03 

0„ 5846+00 

0.4186+01 



RCH20 

STRSO 

STRSN 

W5TRS0 

6P 

es 


0.238E-0t 

0.1006+01 

0.1006+01 

0.8546+00 

0.8756+00 

0.2516+00 
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PN 

PSTANO 

PTSN 

PTSREO 

RESCF 

PPLANT 

RB5P 

0.716E-01 

0.771E+02 

0.100E1-01 

0.100E+Q1 

0.97AE+00 

O.IOSE-FOO 

O.OOOE^OO 

LEAFWT 

stEHwt 

GLUMWT 

GRANHT 

ROOTHT 

“ SPN 


O.lllEtOI 

0.133C-02 

O.OOOE+OOBO.OQOE+00 

0.A64E4-00 

0.622E-I-00 


SPDWL 

SPOSTfil 

SPDGLH 

SPOGRN 

SPOHRT 

CSTRSV 

CSTRSF 

0.135E-01 

0.1SOE-03 

O^OOaE-FOO 

Q.000E1-00 

0.209E-Q1 

0.100EA01 

0.10(3E+01 

RESC 

RESN 

REQN 

NPOOL 

NSTRES 

NV 

NF 

3.131E+Q0 

0.129E-01. 

Q.10AE-02 

0.13«-01 

0.100E+01 

O.IOOEfOl 

0.10QE+01 

SLEAFN 

STEMM 

GLUHN • 

GRANN 

LEAFCN 

SUPN03 


0.276E-01 

0.37AE-04 

Q.OOOEtOO 

O.OOOE+OO 

0.252E-01 

0.708E-03 


SPIICE(I) 

FLORETCI) 

LEAFd) 

JOINfXI) 

BOOT(I) 

HEAOd) 

ANTHESCn 

0 

0 

A, 

999 

999 

999 

999 

0 

0 

2 o 

999 

999 

999 

999 

0 

0 

2 

999 

999 

999 

999 

SECOND 

ACCDEG 

PSTAVG 

OlFREN 

TILLER 



7 

273.14. -O.AISESE+Od 

999 

8 



OAYLNG 

LAI 

XLEAFL 

INT 

TAVG 


,, 

0.112E+02 

Q.SA1E+00 

0.315E1-03 

0.173E+00 

0.897E+01 



RCH2Q 

STRSO 

STRSN 

HSTRSO 

£P 

ES 


0.209E-01 

0.100E+01 

0.100E+01 

0.100E+01 

O.SESS-FOO 

0.368E1-QQ 


VOLUMETRIC NITRATE 

CONTENT OF 

SOIL 

JULIAN DAY 288 

AT THE 1 

ENO OF main 

t 



0 


UNITS - 

M8/N PER CM**3 

LEGEND 


o 

12 3 4 

5 6 


<a 0.0000 




1 

2 

3 

4 

5 

6 
7 

a 

9 

10 

11 

12 

13 

U 

15 

16 

17 

18 

19 

20 


8 8 a 


X X 


Q 0 
0 0 
0 0 
0 0 


7 

• * 

7 7 
■* ■* 


Q.QOOO < Q <- 0.0100 

0,0100 < 1 <» 0.0200 


0 0 
0 0 
0 0 


O,p3Q0 < 3 <» 
O.OAOO < A <• 
0.0500 <^5 «'» 


0.0300 

V( 

O.OAOO 

0.0500 

o.'Woo 


0.0600 < 6 <a 0.0700 
0.0700 < 7 <» 0.0800 
0.0800 < 8 <a 0.0900 
0.0900 <9 <» 0.1000 
0.1000 < * 


f .. . ? 


total 


95.2948 no N 


V0LUM6TRK HATER CONTENT OF SOIL 
AT THE ENO OF (IAIN 


JULIAN DAY 288 



UNITS 

- 

CM**3FCM**3 

SOIL 




LEGEND 


1 

2 

3 

A 

5 

6 




<* 

0.0000 








0.0000 

< 

0 

<« 

0.0500 

1 

A 

A 

4 

A 

A 

4 



o 



2 

7 

8 

a 

a 

8 

7 

Q.QSOO 

< 

1 

<M 

0.1000 

3 

9 

9 

9 

9 

9 

9 






4 

9 

9 

9 

9 

9 

9 

0.1000 

< 

2 

<« 

0.1500 

5 

9 

9 

9 

9 

9 

9 






6 

9 

9 

9 

9 

9 

9 

0.1500 

< 

3 

<a 

0.2000 

7 

9 

9 

9 

9 

9 

9 






8 

9 

9 

9 

9 

9 

9 

0.2000 

< 

Ai. 

<■ 

0.2500 

9 

9 

9 

9 

9 

9 

9 






10 

9 

9 

9 

9 

9 

9 

0.2500 

< 

5 

<» 

Q.3000 

11 

9 

9 

9 

9 

9 

9 






12 

9 

9 

9 

9 

9 

9 

Q.,3000 

< 

6 

,.<« 

0.3500 

13 

9 

9 

9 

9 

9 

9 

/ ' 





14 

9 

9 

9 

9 

9 

9 

0.3500 

< 

7 

<a 

0.4000 

IS 

9 

9 

9 

9 

9 

9 






16 

9 

9 

9 

9 

9 

9 

" 0.4000 

<i; 

8 


0.4500 

17 

9 

9 

9 

9 

9 

9 






18 

9 

9 

9 

9 

9 

9 

0.4500 

< 

9 

<ar 

0.5000 

19 

9 

9 

9 

9 

9 

9 






20 

9 

9 

9 

9 

9 

9 

0.5000 

< 

* 




TOTAL a 


277.9714 MN WATER 
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G 


1/0UUN6TRIC nitrate CONTENT Of SOIL 
AT TH6 END 0.f_j1AIN 

units - «<!/N PER CM«*3 


JULIAN BAT 75 


VOLUMETRIC WATER CONTENT OF SOIL 
AT THE ENO OF MAIN 


UNITS - 
1 2 3 A 


1 3 

i S 
3 6 

A 6 

5 7 

6 6 

7 7 

S 7 
9 • 8 

TO S 


1A 9 
15 9 


Cn**3/CM**3 SOIL 

5 6 <■ 

0.0000 <<;a <■ 

3 3, H 

3 5 0.0 sort < l'<« 

8 6 

7 6 0.1000 < 2 <■ 

7 7 V. 

6 6 0.15'rtO < 3 <» 

7 7 

8 7 0,2Q00^«i A <* 

,B 8 \ ' ^ 

8 8 0.2500 -i"5 <• 

9 9 

9 9 0.3000 < 6 <m 

9 9 

9 9 ,>= 0.3500 < 7 <» 

9 9 ' 

9 9 Q.Aaoa < & <- 

9 9 

9 9 O.A500 < 9 <■ 

9 9 

9 9 0.5000 < * 

2A8.679A MM WATER 


ROOTS IN EACH CELL, TOTAL 
AT THE ENO Of ROTGRO 


LEGEND 



1 

2 

3 

A 

5 

6 




<a 

0.0000 








,0.0000 

< 

q 

<■ 

0.0100 

1 

1 

2 

2 

2 

2 

1 






2 

2 

3 

3 

3 

3 

2 

0.0100 

< 

1 

<■ 

0.0200 

3 

3 

3 

3 

3 

3 

3- 






A 

3 

3 

3 

3 

3 

3 

0.0200 

< 

2 

<a 

0.0300 

5 

2 

3 

3 

3 

3 

2 






6 

2 

2 

2 

2 

2 

2 

0.0300 

< 

3 

<■ 

0.0400 

7 

1 

1 

2 

2 

1 

1, 





8 

1 

1 

1 

1 

1 

1 

0.0400 

< 

4 

<■ 

0.0500 

9 

1 

1 

1 

1 

1 

1 






10 

0 

0 

0 

0 

0 

0 p 

0.0500 

< 

5 

<a 

0.0600 

11 

0 

0 

0 

0 

0 

0 

' 





12 

0 

0 

0 

0 

0 

0 

0.0600 

< 

6 

<a 

0.0700 

13 

0 

0 

0 

0 

0 

0 






1A 

0 

0 

0 

0 

0 

0 

0.0700 

< 

7 

<a 

0.0800 

15 

0 

0 

0 

0 

0 

0 





16 

0 

0 

0 

0 

0 

0 

0.0800 

< 

a 

<a 

0.0900 

17 

0 

0 

0 

(1 

0 

0 ' 






18 

0 

0 

0 

0 

0 

0 

0.0900 

< 

9 

<a 

0.1000 

19 

0 

0 

0 

0. 

0 

0 






20 

0 

0 

0 

0 

0 

0 

0.1000 

< 

• 




TOTAL 

m 


75.4926 

MG H 






LEGEND 

O.OOOQ 

0.0500 

0.1000 

0.1500 

0.2000 

0.2500 

0.3000 

0.350Q 

C.AOQO 

0.4500 

0.5000 



UNITS 

• 

G/cn»*3 

SOIL 




LEGEND 


1 

2 

3 

4 

5 

6 




<« 

0.0000 








0.0000 

< 

a 

<M 

0.0001 

1 

4 

2 

0 

0 








2 

9 

7 

4 

2 

1 

0 

, 0.0001 

< 

1 

<M 

0.0005 

3 

4 

3 

2 

2 

1 

0 

'^1 





4 

4 

3 

2 

2 

0 

0 

1/0.0005 

< 

2 


O.U050 

5 

3 

2 

2 

1 

0 

0 



,1 



6 

2 

2 

2 

1 

0 


0.0050 

< 

3.', 


o.oiqo 

7 

2 

2 

1 

0 

0 







8 

2 

1 

1 

0 



• 0.0100 

< 

A 

<a 

0.0150 

9 

1 

1 

0 

0 







10 

■ '} 

0 

0 




0.0150 

< 

5 

<* 

0.0200 

11 

0 

0 










12 

0 






0.0200 

< 

6 

<»■. 

0.0250 

13 







,/ . .'. ‘.V . 





14 







(' 0.0250 

< 


<* 

0.0300 

IS 












16 







0.0300 

< 

a 

<* 

0.0350 

17 












18 







0.0350 

< 

9 

<» 

0.0 A 00 


TOTAL » 


O.OAQQ < • 

0*1732 G». DRY WEIGHT 


^JjlHAN OAT 75 


JULIAN OAT 75 
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. ORIGINAL PAGE IS - 
OF POOR Q*'ALttY 


PSIS FOR EACH LAYER AMO COLUMN JULIAN OAT 75 

AT THE ENO OF MAIN 



UNITS 

- 

CM**3/CM*«3 

SOIL 

LEGEND 




I 2 3 

4 

5 6 


<» -15.0000 

'C\ 






-15.0000 < 

C <» -to. 0000 

)\ 


1 

0 0 1 

1 

0 0 




Sj 


2 

2 3 3 

3 

3 2 

-10.0000 < 

1 <■ -6.0000 


3 

2 2 3 

3 

2 2 






A 

2 3 3 

3 

3 2 

-6.0000 < 

2 <« -3.0000 



5 

3 3 3 

3 

3 3 






6 

3 4 4 

4 

4 3 

-3.0000 < 

3 <•> -1.5000 



7 

4 4 5 

5 

4 4 






R 

5 5 5 

5 

5 5 

-1.5000 < 

4 <« -1.0000 

\ 


9 

5 A S 

S 

6 5 






10 

6 6 S 

S 

6 6 

-1.0000 < 

5 <■ -0.6000 



*11 

7 7 7 

7 

7 7 






12 

7 7 7 

7 

7 7 

-0.6000 < 

6 <■ -0.4000 



13 

7 7 7 

7 

7 7 

o 


f; '' 



14 

7 7 7 

7 

7 7 

-0.4000 < 

7 <■ -0.2000 

',v. 


IS 

7 7 7 

7 

7 7 






IS 

7 7 7 

7 

7 7 

-0.2000 < 

8 <« -0.1000 



17 

7 7 7 

7 

7 7 






IS 

7 7 7 

7 

7 7 

-0.1000 < 

9 <• 0.0000 



19 

7 7 7 

7 

7 7 






20 

7 7 7 

7 

7 7 

0.0000 < 

* 





TOTAL 

ar 

'248.6794 

MM WATER 








0 

JULIAN OAT-IZO 

IOAY« 75 




PN 


PSTANO 

PTSN 

PTSREO 

RESCF 

il'PLANT 

R6SP !') 


5.378E-I 

01 

0.9S2E>02 

0.10QE+01 

0.507E+00 

0.1786+00 

0!*554E-01 

l3,000E‘i)0 


LEAFWT 


STEHUT 

6LUMWT 

graNwt 

ROOTWT 




a.179E+01 

0.793E-02 

O.OOOE+00 

O.OOQE+00 

0.1476+01 

0.303E'+01 



SPOUL 


SPCSTM 

SPDGLM 

SPOGRN 

SPOWRT 

CSTRSV 

CSTRSF 


C.S22E-I 

02 

0.1266-03 

O.OOQE+OU 

O.OOOEtOQ 

0.270E-01 

0.100E+01 

0.100E+01 


RESC 


RESN 

REQN 

NPOOL 

NS TREE 

NV 

NF 


3.681E*00 

0.194E-01 

0.970E-03 

0.200E-Q1 

0.100E+01 

0.1006+01 

0.1006+01 


SLEAFN 


STEMN 

SLUMN 

liGRANN 

LEAFCM 

SUPN03 



Q.347E-I 

01 

0.179E-03 

O.OOOE+00 

Q.OOQE+OO 

0.1946-01 

0. 5946-03 



SPIKE(I) 


FLORET(I) 

LEAF(l) 

JOINT(I) 

SOOTCI) 

HEADCI) 

ANTHESCI) 


0 


0 

6 

999 

999 

999 

999 


0 


0 

6 

999 

999 

999 

999 


0 


0 

6 

999 

999 

999 

999 


SECOND 


ACCDES 

PSIAVG 

DIFREN 

tiller;, 




10 


638.13 - 

0.23342E+01 

31 

8 




OAYLNO 


LAI 

XLEAFL 

INT 

TAW6 




3.13BE+02 

0.390E+01 

0.320E+03 

0.7886+00 

0.472E+01 




RCH20 


STRSO 

STRSN 

USTRSD 

£P 

ES 



0.270E- 

01 

0.1006+01 

0.100E+01 

Q.739E+00 

0.199E+01 

0.390E+00 



VOLUMETRIC NXtRATE CONTENT OF SOIL JULIAN OAY 120 

AT THE ENO OF MAIN 



UNITS 

- 

MS/N P6R 

CM**3 




LEGEND 


1 

2 

3 

4 

5 

6 




<a 

0.0000 








0.0000 

< 

0 

<s 

0.0100 

1 

2 

2 

2 

2 

2 

2 

ii 





2 

2 

2 

2 

2 

2 

2 

0.0100 

< 

1 

<m 

0.0200 

3 

2 

2 

2 

2 

2 

2 






4 

2 

2 

2 

2 

2 

2 

0.0200 

< 

,2 

<m 

0.0300 

5 

2 

2 

2 

2 

2 

2 






6 

1 

1 

2 

2 

1 

1 

0.0300 

< 

3 

<s 

0.0400 

7 

1 

1 

1 

1 

1 

1 






8 

1 

1 

1 

1 

1 

1 

0.04Q0 

< 

4 

<M 

0.0500 

9 

1 

1 

1 

1 

1 

1 






10 

0 

1 

1 

1 

1 

0 

0.0500 

< 

5 

<• 

0.0600 

11 . 

0 

0 

0 

0 

0 

0 






12 

0 

0 

0 

0 

0 

0 

0.0600 

< 

6 

<M 

0.0700 

13 

0 

0 

0 

0 

0 

0 






14 

0 

0 

0 

0 

0 

0 

0.0700 

< 

7 

<a 

0.0800 

15 

0 

0 

0 

Cl 

0 

0 






16 

w 

0 

0 

0 

0 

0 

0.0800 

< 

8 

<■ 

0.0900 

17 

0 

0 

0 

0 

0 

0 . 






IS 

0 

0 

0 

0 

0 

0 

0.0900 

< 

9 

<» 

0.1000 

19 

0 

0 

0 

0 

0 

0 






20 

0 

0 

0 

0 

0 

0 

0.1000 

< 

* 




TOTAL 

■' 


68.8718 NG M 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


VOUUMETSIC UAT6R CONTENT OF SOIt. JULIAN OAT 120 

AT THE ENO OF NAIN 



UNITS 

m 

Crt**3/CN**3 

SOIL 




LEGEND 


1 

2 

3 

4 

5 

4 





<». 

0.0,000 









O.QQOO 

< 

0 

<■ 

0.0500 

1 

4 

4 

5 

5 

4 

4 







2 

4 

4 

5 

5 

4 

4 


0.0500 

< 

1 

<» 

0.1000 

3 

6 

4 

4 

4 

4 

4 







4 

4 

4 

4 

4 

4 

4 


0.1000 

< 

2 

<» 

0.1500 

5 

4 

4 

7 

7 

4 

4 



'■ 



■ 

6 

5 

5 


4 

5 

5 


0.1500 

< 

3 

<n 

0.2000 

7 

4 

4 

4 

4 

4 

4 







a 

4 

4 

7 

7 

4 

4 


0.2000 

< 

4 

<a 

0.2500 

9 

7 

7 

7 

7 

7 

7 







10 

7 

7 

8 

a 

7 

7 


o,uaoo 

< 

5 

<■ 

0.3000 

11 

a 

8 

8 

a 

8 

8 







12 

a 

8 

3 

a 

8 

8 


0.3000 

< 

4 

<« 

0.3500 

13 

9 

9 

9 

9 

9 

9 







14 

9 

9 

9 

9 

9 

9 


0,3500 

< 

7 

<■ 

0.4000 

15 

9 

9 

9 

9 

9 

9 







14 

9 

9 

9 

9 

9 

9 


0.4000 

< 

8 

<a 

0.4500 

17 

9 

9 

9 

9 

9 

9 






18 

9 

9 

9 

9 

9 

9 


Q.4S00 

< 

9 

<■ 

O.SQOO 

19 

9 

9 

9 

9 

9 

9 







20 

9 

9 

9 

9 

9 

9 


0.5000 

< 

• 




total 

• 


235 

.7825 

MH WATER 



o 


ROOTS 

IN EACH 

CELL. 

TOTAL 








AT THE ENO 

OF RUTGRO 






UNITS 

i* 

G/CN**3 SOIL 





LEGEND 


1 

2 

3 

4 

5 

4 





<M 

0.0000 









0.0000 

< 

0 

<m 

0.0001 

1 

4 

2 

1 

0 

0 






• 


2 

9 

7 

5 

3 

2 

0 


0.0001 

< 

1 

<a 

0.0005 

3 

5 

4 

3 

2 

1 

0 







i 

»* 


4 

J- 

z 

1 

0 


0.0005 

< 

2 

<» 

0.0050 

5 

4 

3 

3 

2 

1 

0 







A 

3 

3 

3 

2 

1 

0 


0.0050 

< 

3 

<a 

0.01QO 

7 

3 

3 

2 

2 

0 

0 







3 

2 

2 

2 

2 

0 

0 


0.0100 

< 

4 

<a 

0.0150 

9 

2 

2 

2 

1 

0 

0 







10 

2 

2 

2 

1 

0 

.) - 


0.0150 

< 

S 

<• 

0.0200 

11 

2 

1 

1 

0 

o; 








12 

1 

1 

0 

0 




0.0200 

< 

4 

<« 

0.0250 

13 

1 

0 

0 










14 

Q 

0 






0.0250 

< 

7 

<» 

0.0300 

15 

0 












14 








0.0300 

< 

8 

<* 

0.0350 

17 













ia 








0.0350 

< 

9 

<a 

„ 0.0400 

19 













20 








0.0400 

< 





JULIAN OAT 120 


TOTAL « 0.2721 ON. 0«T WEIGHT . 

PSIS FOR EACH LAYER AND COLUHn JULIAN DAY 120 

AT THE ENO OF NAIN 



UNITS 

- 

CK**3/CN'»*3 

SOIL 




LEGEND 


1 

2 

3 

4 

5 

4 




<■ 

-15.0000 








-15.0000 

< 

0 


-10.0000 

1 

1 

2 

3 

3 

2 

1 






2 

2 

2 

2 

2 

2 

2 

-10.0000 

< 

1 

<a 

-4.0000 

3 

2 

2 

2 

2 

2 

2 






4 

2 

2 

2 

2 

2 

2 

-4.0000 

< 

2 

<a 

-3.0000 

5 

2 

2 

3 

3 

2 

2 






6 

2 

3 

3 

3 

3 

2 

-3.QQ00 

< 

3 

<a 

-1.5000 

7 

3 

3 

3 

3 

3 

3 






8 

3 

3 

4 

4 

3 

3 

-1.5000 

< 

4 

<m 

-1.0000 

9 

4 

4 

4 

4 

4 

4 






10 

5 

S 

5 

S 

5 

5 

-1 .0000 

< 

5 

-0.4000 

1 1 

5 

4 

4 

4 

4 

S 






12 

4 

4 

4 

4 

4 

4 

-0.4000 

< 

4 

<« 

-0.4000 

13 

7''' 

7 

7 

7 

7 

7 






14 

7 

7 

7 

7 

7 

7 

-0.4000 

< 

7 


-0.2 000 £) 

15 

7 

7 

7 

7 

7 

7 






14 

7 

7 

7 

7 

7 

7 

-0.2000 

< 

a 

<3 

-0.1000 

17 

7 

7 

7 

7 

7 

7 






18 

7 

7 

7 

7 

7 

7 

-0.1000 

< 

9 


0.0000 

19 

7 

7 

7 

7 

7 

7 






20 

7 

7 

7 

7 

7 

7 

0.0000 

< 

• 




TOTAL » 235. 7825 NM WATER 


150 


ORIGINAL PAGE IS 
OF POOR QUALITY 


jUtlAN CAYa149 IOAY«100 


PN 

PSTANO 

PTSN 

PTSREO 

RESCF 

PPLANT 

R6SP 

0.238E-01 

Q.562Et02 

0.1006+01 

0.36CE+00 

0.1986+00 

0.6396-01 

0.291 E-01 

LEAFUT 

ST:«IHWT 

6LUMWT 

GRANUT 

ROOTUT 

SPN 


0.18BEF01 

0.r64E-01 

0. 0006+00 

O.OOOE+OO 

0.2Q7E+01 

0.3966+01 


SPOUL 

SPDSTS 

SPDCLI 

SPOGRN 

SPOURT 

CSTRSV 

CSTRSF 

o.oaoE^oo 

0.425E-02 

O.OOOE+00 

O.OOQE+00 

0.306E-01 

0.1006+01 

0.1006+01 

RESC 

RESN 

REON 

NPOOL 

NSTR6S 

NV 

NF 

0.721 EtOO 

0.255E-01 

0.1056-02 

0.2S6E-01 

0.1006+01 

0.1006+01 

0,1006+01 

SLEAFN 

ST^MM 

6LUMH 

GRANN 

LEAFCN 

SUPN03 


0.349E-01 

Q.k15E-02 

O.OOOE+OO 

O.OOOE+OO 

0. 1856-01 

0.7416-04 


SPIKEIl) 

FLORETII) 

LEAFIl) 

JOINT(I) 

BOOT(I) 

HEAD(t) 

ANTHESd) 

0 

0 

6 

87 

999 

999 

999 

0 

0 

6 

87 

999 

999 

999 

0 

0 

6 

88 

999 

999 

999 

SECOND 

ACCDES 

P5IAVG 

DIFREN 

TILLER 



10 

927.53 - 

0.13399E+01 

31 

8 



DAYLNS 

LAI 

XLEAFL 

I NT 

TAVS 



n.147E*02 

0,436Et01 

Q.320E+03 

0.825E+00 

0.162E+02 



RCH20 

STRSD 

STRSN 

USTRSO 

EP 

ES 


0.306E-01 

0.1QOE+01 

0.1006+01 

0,6306+00 

0. 2336+00 

0.33CE+00 



VOLUMETRIC NITRATE CONTENT OF SOIL 
AT the end of main 



UNITS 

- 

MG/N PER 

CM**3 




LEGEND 


1 

2 

3 

4 

5 

6 




<■ 

0.0000 








0.0000 

< 

0 

<■ 

0.0100 

1 

1 

1 

2 

2 

1 

1 






2 

1 

1 

1 

1 

1 

1 

0.0100 

< 

1 

<a 

0.0200 

3 

2 

2 

2 

2 

2 

2‘ 






4 

2 

2 

2 

2 

2 

2 

0.0200 

< 

2 

<» 

0.0300 

5 

2 

2 

2 

2 

2 

2 





(■ 

6 

1 

1 

1 

1 

1 

1 

0.0300 

< 

3 

<■ 

0.0400 

7 

1 

1 

1 

1 

1 

1 






8 

1 

1 

1 

1 

1 

1 

0.0400 

< 

4 

<« 

0.0500 

9 

1 

1 

1 

1 

1 

1 






10 

1 

1 

1 

1 

1 

1 

0.0500 

< 5 

<a 

0.0600 

11 

0 

0 

0 

0 

0 

0 






12 

0 

0 

0 

0 

0 

0 

0.0600 

< 

6 

<■ 

0.0700 

13 

0 

0 

0 

0 

0 

0 






14 

0 

0 

0 

0 

0 

0 

0.0700 

< 

7 

<a 

0.0800 

15 

0 

0 

0 

0 

0 

0 






16 

u 

0 

a 

0 

0 

0 

0.0800 

< 

a 

<a 

0.0900 

17 

0 

0 

0 

0 

0 

0 






18 

0 

0 

0 

0 

C 

0 

0.0900 

< 

9 

<a 

0.1000 

19 

0 

0 

0 

0 

0 

0 






20 

0 

0 

0 

0 

0 

0 

0.1000 

< 

• 




JULIAN DAY 


TOTAL ■ 63.5477 MS N 

VOLUMETRIC WATER CONTENT OF SOIL JULIAN^>AY 149 

AT the ENO OF MAIN ^ 



UNITS 

- 

CM**3/CH**3 

SOIL 




legend 


1 

2 

3 

4 

5 

6 




<* 

0.0000 







■ 

0.0000 

< 

0 

<a 

O.OSOQ 

1 

7 

7 

a 

a 

7 

7 






2 

6 

6 

7 

7 

6 

6 

0.0500 

< 

1 

<» 

0.1000 

3 

7 

8 

8 

a 

8 

7 






6 

7 

7 

7 

7 

7 

7 

0.1000 

< 

2 

<» 

0.1500 

5 

6 

6 

7 

7 

6 

6 






6 

5 

5 

6 

6 

5 

5 

0.1500 

< 

3 

<n 

0.2000 

7 

6 

6 

6 

6 

6 

6 






8 

6 

6 

6 

6 

6 

6 

0.2000 

< 

4 

<» 

0.2500 

9 

7 

7 

7 

7 

7 

7 






10 

7 

7 

7 

7 

7 

7 

0.2500 

< 

5 

<» 

0.3000 

11 

a 

8 

a 

8 

8 

8 






12 

8 

8 

8 

3 

8 

8 

0.3000 

< 

6 

<■ 

0.3500 

13 

8 

8 

8 

a 

8 

a 






14 

9 

9 

9 

9 

9 

9 

0.3500 

< 

7 

<■ 

0.4000 

15 

9 

9 

9 

9 

9 

9 






16 

9 

9 

9 

9 

9 

9 

O 

• 

o 

o 

< 

8 

<a 

0.4500 

17 

9 

9 

9 

9 

9 

9 





18 

9 

9 

9 

9 

9 

9 

0.4500 

< 

9 

<a 

0.5000 

19 

9 

9 

9 

9 

9 

9 






20 

9 

9 

9 

9 

9 

9 

0.5000 

< 

• 




TOTAL 

. a 


244.5427 

MM water 
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OF is 

POOR QUALITY 


ROOTS IN EACH CELU, TOTAL 

at the eno or rutgro 


iULIAN oat H9 



UNITS 

- 

G/CN**3 soil 





LEGENO 


1 

2 

3 

4 

5 

6 




<■ 

0.0000 




II 




0.0000 

< 

0 

<a 

0.0001 

1 

4 

2 

1 

0 

Q 







2 

9 

7 

5 

3 

2 

1 

0.0001 

< 

1 

<a 

0.0005 

3 

5 

4 

4 

3 

2 

1 






4 

4 

4 

4 

3 

2 

0 

o.ooos 

< 

2 

<• 

o.ooso 

5 

4 

4 

3 

2 

1 

0 






6 

4 

4 

3 

2 

2 

0 

o.ooso 

< 

3 


0.0100 

7 

3 

3 

3 

2 

1 

0 






a 

3 

3 

3 

2 

1 

0 

0.0100 

< 

4 

<■ 

0.0150 

9 

3 

3 

2 

2 

1 

0 






10 

2 

2 

2 

2 

1 

0 

0.Q1S0 

< 

S 

<■ 

0.0200 

11 

2 

2 

2 

2 

1 

0 






12 

2 

2 

2 

1 

0 

0 

0.0200 

< 

6 

<■ 

0.0250 

13 

2 

2 

1 

1 

0 

0 






14 

2 

1 

1 

0 

0 


0.0250 

< 

7 

<« 

0.0300 

IS 

1 

1 

0 

0 








16 

0 

0 

0 




0.0300 

< 

8 

<a 

0.0350 

17 

0 

0 










18 

0 






0.0250 

< 

9 

<» 

0.0400 

19 












20 







0.0400 

< 

• 




TOTAL 

m 


0.3843 

GN. ORT weight 



PSIS FOR EACH LAYER AHO COLUHN 
AT THE ENO OF HAIM 



UNITS 

• 

CN**3/CN**3 

SOIL 




LEGENO 


1 

2 

3 

4 

5 

6 




<■ 

-15.0000 








-15.0000 

< 

0 

<■ 

-10.0000 

1 

5 

6 

7 

7 

6 

S 






2 

5 

5 

5 

5 

5 

5 

-lo.ooOo 

< 

1 

<■ ’ 

i -6.0000 

3 

4 

4 

4 

4 

4 

4 






4 

2 

3 

;.4 

4 

3 

2 

-A.QOCiO 

< 

2 

<a 

-3.0000 

s 

2 

2 

3 

3 

2 

2 






A 

2 

3 

3 

3 

3 

2 

-3.0000 

< 

3 


-1.5000 

7 

3 

3 

3 

3 

3 

3 






8 

3 

3 

3 

3 

3 

3 

-1.5000 

< 

4 

<> 

-1.0000 

9 

4 

4 

4 

4 

4 

4 






10 

5 

5 

5 

5 

5 

5 

-1.0000 

< 

5 

<a 

-0.6000 

11 

5 

5 

5 

5 

5 

5 






12 

6 

6 

6 

6 

6 

6 

-0.6000 

< 

6 

<a 

-0.4000 

13 

6 

6 

6 

6 

6 

6 






14 

7 

7 

7 

7 

7 

7 

-0.4000 

< 

7 

<a 

-0.2000 

15 

7 

7 

7 

7 

7 

7 






16 

7 

7 

7 

7 

7 

7 

-0.2000 

< 

8 

<a 

-0.1000 

17 

7 

7 

7 

7 

7 

7 






13 

7 

7 

7 

7 

7 

7 

-0.1000 

< 

9 


0.0000 

19 

7 

7 

7 

7 

7 

7 






20 

7 

7 

7 

7 

7 

7 

0.0000 

< 

• 




1 -; 

:/ 


AS 


JULIAN DAY U9 



TOTAL > 244.SA27 HN WATER 


JULIAN 0AY»174 IOAY-125 


PN 

PSTANC 

PTSN 

PTSRED 

RE5CF 

PPLANT 

RESP 

C.241E-01 

G.637E+02 

0.100E+01 

0.979E»00 

0.194E+QO 

0.809E-01 

0.45SE-01 

LEAFUT 

STE.RWT 

GLUMUT 

GRANUT 

ROOTWT 

SPM 


0.188E401 

0.346E>00 

0.42SE-02 

O.QOGE>00 

0.279E+01 

0.51 6 E 401 


SPOWL 

SPOSTM 

SPOGLH 

SPOCRN 

SPOURT 

CSTRSV 

CSTRSF 

O.QOOE^OO 

0.167E-01 

0.805E-03 

O.OOOE+00 

Q.373E-01 

0.10QE+01 

O.IOOE+OI 

RE SC 

RESN 

REQN 

NPOOL 

NSTRES 

NV 

NF 

3.799£*00 

0.311E-01 

0.165E-02 

0.313E-01 

0.100E+01 

0.1Q0E+ni 

O.IOOE+OI 

SLEAFN 

STEHN 

GLUNN 

GRANN 

LEAFCN 

SUPN03 


0.318E-01 

0.942E-02 

0.125E-03 

Q.oaoE+oo 

0.169E-01 

a.2Q8E-03 


SPIKEU) 

FLORET <13 

LEAF(I) 

JOINT(l) 

BOOTd) 

HEAO<n 

ANTHESII) 

19 

0 

6 

87- 

114 

120 

999 

19 

0 

6 

87 

114 

120 

999 

19 

0 

6 

88 

115 

121 

999 

SECOND 

ACCDEG 

PSIAVC 

OIFREN 

TILLER 



14 

1290.87 

-0.10578E+01 

31 

3 



OAYLNC 

LAI 

XLEAFL 

INT 

TAVC 



0.1!5QS+02 

0.436EtO1 

0.320E+03 

O.SESEtOO 

0.171EtQ2 



RCH20 

STRSO 

strsn 

USTRSO 

EP 

ES 


0.3/73E-01 

Q.100E+01 

O.IOOEtOI 

Q.729E+00 

Q.826E>Q0 

0.401 £+00 
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ORlGlNAt PAGS 
OF POOR QUAUtY 


VOLUMETRIC NITRATE CONTENT OF SOIL JULIAN OAT 174 

AT THE ENO OF MAIN 



UNITS 

- 

MG/N PER CM»*3 



LEGEND 


1 2 3 

4 

5 

6 



<■ 

0.0000 






0.0000 

< 0 

<■ 

0.0100 

1 

1 1 1 

1 

1 

1 





2 

1 1 1 

1 

1 

1 

0.0100 

< 1 

<» 

0.0200 

3 

12 1 

1 

2 

1 





4 

2 2 2 

2 

2 

2 

0,0200 

< 2 

<m 

0.0300 

5 

2 2 2 

2 

2 

2 





6 

1 1 1 

1 

1 

1 

0.0300 

< 3 

<■ 

0.0400 

7 

1 1 1 

1 

1 

1 





a 

1 1 1 

1 

1 

1 

0.0400 

< 4 

<* 

G.OSOO 

9 

1 1 1 

1 

1 

1 





10 

1 1 1 

1 

1 

1 

0.0500 

< 5 

<m 

0.0600 

11 

COO 

0 

0 

0 





12 

0 0 0 

0 

0 

0 

0.0600 

< 6 

<■ 

0.0700 

13 

0 0 0 

Q 

0 

0 





14 

0 0 0 

0 

0 

0 

0.0700 

< 7 

<« 

0.0800 

15 

0 0 0 

0 

0 

0 





T6 

0 0 0 

0 

0 

0 

0.0800 

< 8 

<■ 

0.0900 

17 

0 0 0 

0 

0 

0 





18 

0 0 0 

0 

0 

0 

0.0900 

< 9 

<« 

0.1000 

19 

0 0 0 

0 

0 

0 





2C 

0 0 0 

0 

0 

0 

0.1000 

< * 




TOTAL 

a 


58.6074 

MG N 





VOLUMETRIC 

: WATER CONTENT OF 

SOIL 



AT THE ENC 

1 OF MAIN 






UNITS 

• 

CM**3/CM**3 

SOIL 



LEGEND 


1 2 3 

4 

5 

6 



<a 

0.0000 






9.0000 

<0 

<a 

0.0500 

1 

9 8 8 

a 

8 

8 





2 

6 7 7 

7 

7 

6 

0.0500 

< 1 

<a 

0.1000 

3 

3 8 8 

a 

a 

3 





4 

8 8 8 

8 

8 

3 

0.1000 

< 2 

<a 

0.1500 

5 

8 8 8 

8 

8 

3 





4 

5 6 6 

6 

6 

5 

0.1500 

<3 

<a 

0.2000 

7 

5 6 6 

6 

6 

5 





a 

6 6 6 

6 

6 

6 

0.2000 

< 4 

<a 

0.2500 

9 

6 6 6 

6 

6 

6 





10 

7 7 7 

7 

7 

7 

0.2500 

< 5 

<a 

0.3000 

11 

7 7 7 

7 

7 

7 





12 

7 7 8 

8 

7 

7 

0.3000 

< 6 

<a 

0.3500 

13 

8 8 3 

8 

3 

8 





14 

8 3 3 

a 

8 

a 

0.3500 

< 7 

<a 

0.4000 

15 

8 8 9 

9 

8 

8 





140 

9 9 9 

9 

9 

9 

0.4000 

< 8 

<a 

0.4500 

17 

9 9 9 

9 

9 

9 





13 

9 9 9 

9 

9 

9 

0.4500 

< 9 

<a 

0.5000 

19 

9 9 9 

9 

9 

9 





20 

9 9 9 

9 

9 

9 

O.SOQO 

< a 




TOTAL a 2A2.47S0 MM WATER 

ROOTS IN EACH CELL, TOTAL 
AT THE ENO OF RUTGRO 



UNITS 

- 

G/CM**3 

SOIL 




LEGEND 


1 

2 

3 

4 

5 

6 




<» 

0.0000 








0.0000 

< 

0 


0.0001 

1 

5 

2 

1 

1 

Q 







2 

9 

8 'S 

3 

2 

1 

0.0001 

< 

1 

<■ 

0.0005 

3 

5 

5 

4 

3 

2 

1 






4, 

5 

5 

5 

4 

2 

2 

0.0005 

< 

2 

<« 

0.0050 

5 

4 

4 

4 

3 

2 

2 






6 

4 

4 

4 

3 

2 

1 

0.0050 

< 

3 

<9 

0.0100 

7 

3 

4 

4 

2 

2 

1 






8 

3 

4 

4 

2 

2 

1 

0.0100 

< 

4 

<9 

0.0150 

9 

3 

3 

3 

2 

2 

1 






10 

3 

3 

3 

2 

2 

1 

0.0150 

< 

5 

<9 

0.0200 

11 

3 

3 

3 

2 .2 

1 






12 

2 

2 

2 

2 

1 

Q 

0.0200 

< 

6 

<9 

0.0250 

13 

2 

2 

2 

2 

1 

0 






14 

2 

2 

2 

2 

1 

0 

0.0250 

< 

7 

<3 

0.0300 

15 

2 

2 

2 

1 

0 

0 






16 

2 

2 

1 

t 

0 

0 

0.0300 

< 

8 

<at 

0.0350 

17 

1 

1 

1 

0 

0 







13 

1 

0 

0 

0 



0.Q350 

< 

9 

<3 

0.0400 

19 

0 

0 

0 









20 

0 






0.0400 

< 

« 




JULIAN DAY 174 


JULIAN OAT 174 


// 


TOTAL a 0.5180 G!1. ORT WEIGHT 


153 



7‘ 

OFPOORQUALifY 

■ * ■ * 

VOLUMETRIC WATER CONTENT OlF SOIL 
AT THE ENO Of MAIN 


JULIAN DA.r 199 


l-'j 



UNITS 

m 

cm*»3/c:i**3 

SOIL 




LEGEND 


1 

2 

3 

4 

5 

6 





0.0000 








0.0000 

< 

0 

<■ 

0.0500 

1 

a 

3 

a 

a 

a 

8 






2 

6 

7 

7 

7 

7 

6 

0.0500 

< 

1 

<■ 

0.1000 

3 

a 

a 

8 

« 

a 

8‘ 






A 

7 

7 

7 

7 

7 

7 

0.1000 

< 

2 

<a 

0.1500 

S 

7 

7 

7 

7 

7" 

7 






A 

5 

6 

6 

6 

6 

5 

0.1500 

< 

3 

<■ 

0.2000 

7 

5 

6 

6 

6 

6 

5 






a 

6 

6 

6 

6 

6 

6 

0.2000 

< 

4 

<■ 

0.2500 

9 

6 

6 

6 

6 

6 

6 






10 

6 

6 

6 

6 

6 

6 

0.2500 

< 

5 

<a 

0.3000 

11 

7 

7 

7 

7 

7 

7 






12 

7 

7 

7 

7 

7 

7 

0.30LO 

< 

6 

<» 

0.3500 

13 

7 

7 

7 

7 

7 

7 






14 

7 

7 

7 

7 

7 

7 

0.3500 

< 

7 

<M 

0.4000 

15 

a 

8 

a 

a 

a 

a 

< 





16 

a 

a 

a 

a 

a 

a 

0.4000 

< 

a 

<a 

0.4500 

17 

a 

a 

a 

a 

a 

a 






IB 

9 

9 

9 

9 

9 

9 

0.4500 

< 

9 

<a 

0.5000 

19 

9 

9 

9 

9 

9 

9 






20 

9 

9 

9 


9 

9 

0.5000 

< 

• 




TOTAL 

9- 


230.2652 

MM WATER 





ROOTS IN EACH C£LL« TOTAL ' JULIAN OAT 199 

AT THE ENO Of RUTGRO 



UNITS 


G/CH**3 

SOIL 




legend 


1 

2 

3 

4 

5 

6 

. 



<m 

0.0000 








0.0000 

< 

a 

<t« 

O'QOOI 

f 

S 

2 

i 

1 

0 







2 

9 

3 

6 

3 

2 ’ 

2 

0.0001 

< 

1 

<a 

0.0005 

3 

5 

5 

4 

3 

2 

2 






4 

5 

5//5 

4 

2 

2 

o ; ooo 5 

< 

2 

<a 

0.0050 

5 

5 

, 5 '^ 

5 

3 

2 

2 

1 





6 

4 

4 

5 

3 

2 

1 

O.QOSO 

< 

3 

<a 

0.0100 

7 

3 

4 

4 

3 

2 

1 

1: 





a 

3 

4 

4 

3 

2 

1 

0.0100 

< 

4 

<B 

0.0150 

9 

3 

4 

4 

3 

2 

1 






10 

3 

4 

4 

3 

2 

1 

( 1.0150 

< 

S 

•ta 

0.0200 

11 

3 

4 

3 

3 

2 

1 






12 

3 

3 

3 

2 

2 

1 

Q .0200 

< 

6 

<a 

0.0250 

13 

3 

3 

3 

2 

2 

1 






14 

3 

3 

2 

2 

2 

1 

0.0250 

< 

7 

<a 

0.0300 

15 

2 

2 

2 

2 

1 

1 



!■ 



16 

2 

2 

2 

2 

1 

1 

0-.0300 

< 

3 

<a 

0.0350 

17 

2 

2 

2 

1 

1 

0 






18 

2 

2 

1 

1 

0 

0 

0.0350 

< 

9 

<a 

0.0400 

19 

1 

1 

1 

0 

0 

0 






20 

1 

1 

0 

0 

0 


. 0.0400 

< 

a 




TOTAL » • O.ATOr GN. ORT WEIGHT 


PSIS FOR EACH LAYER AND COLUflN JULIAN OAY 199 

AT THE ENO Of NAIN 



UNITS 

- 

CM**3/C!1*a3 

SOIL 




LEGEND 


1 

2 

3 

4 

5 

6 




<9 

-15.0000 








-15.0000 

< 

0 


-10.0000 

1 

7 

7 

7 

7 

7 

7 






2 

5 

5 

5 

5 

5 

5 

-10.0000 

< 

1 


-6.0000 

3 

4 

4 

4 

4 

4 

4 






4 

3 

3 

3 

3 

3 

3 

-6.0000 

< 

2 

<a 

-3.0000 

5 

3 

3 

3 

3 

3 

3 






6 

2 

3 

3 

3 

3 

2 

-3.0000 

< 

3 

<■ 

-1.5000 

7 

3 

3 

3 

3 

3 

3 






a 

3 

3 

3 

3 

3 

3 

-1.5000 

< 

4 

<» 

-1.0000 

9 

3 

3 

3 

3 

3 

3 






10 

4 

4 

4 

4 

4 

4 

-1.0000 

< 

5 

<» 

-0.6000 

11 

4 

4 

4 

4 

4 

4 






12 

4 

4 

4 

4 

4 

4 

-0.6000 


6- 

<» 

-0.4000 

13 

5 

5 

5 

5 

5 

5 






14 

5 

5 

5 

5 

5 

5 

-0.4000 

< 

7 

<3 

-0.2000 

15 

5 

5 

5 

5 

5 

5 

\ 





16 

7 

7 

7 

7 

7 

7 

-0.2000 

< 

a 

<3 

-0.1000 

17 

■6- 

6 

6 

6 

6 

6 






18 

6 

6 

6 

6 

6 

6 

-0.1000 

< 

9 

<3 

Q.OOCO 

19 

7 

7 

7 

7 

7 

7 






20 

7 

7 

7 

7 

7 

7 

0.0000 

< 

* 




■ 23Q.26S2 MM WATER 
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TOTAL 



ORUalN/^ PAGE IS 
OF POOR QUALITY 


is - 


JULIAN 0AY>212 I0AY«16j 


PN 

P3TAN0 

PTSN 

PTSREO 

RESCF 

PPLANT 

RESP 

0.238E-01 

0.873E*n2 

O.IOOEtOI 

0.904E*00 

0.24rE*00 

0.127Et00 

0.921E-01 

LEAFWT 

ST EMU T 

GLUMUT 

GRANUT 

ROOTWT 

SPN 


0.188E+01 

o.4iSE«aa 

0.936E-02 

0.245E>01 

0.359E+01 

0.876E+01 


SPOUL 

SPOSTH 

SPOGLN 

SPOGRN 

SPOURT 

CSTRSV 

■ CSTRSF 

O.OQOEtQO 

O.OOOE+00 

0.1S0E-03 

0.1S4E+00 

0.818E-02 

0.10QE+01 

0.100E+01 

RESC 

RESN 

REON 

NPOOL 

NSTRES 

MV 

NF 

Q.852E4-QQ 

0.141E-04 

0.2S1E-03 

Q.S42E-Q3 

0.111E*00 

O.OOOE-^00 

0.117Et00 

SLEAFM 

STEMN 

GLUMN 

GRANN 

LEAFCN 

SUPN03 


3.188E-01 

Q.A15£-n2 

0.936E-04 

0.735E-01 

0.100E-Q1 

0.S28E-03 


SPIKEU) 

floret (1) 

LEAF(I) 

JOINT(I) 

BOOT(I) 

HEAO(I) 

ANTHES(I) 

19 

60 

6 

'ar-- 

114 

120 

126 

19 

60 

6 

8f 

114 

120 

126 

19 

6P 

6 

88 

115 

121 

127 

SECOND 

ACCOEG 

PSIAVG 

DIFREN 

TILLER 



14 

2028.31 

'0.12551Et-01 

31 

a 


DAYLNS 

LAI 

XLEAFL 

INT 

TAVG 



C.143E>02 

0.436E+Q1 

0.320EY03 

0.82SE^a0 

0.182E«’02 



RCH20 

STRSO 

-STRSN 

WSTRSO 

EP 

ES 


O.QOOE^OO 

0.824E>00 

o.iao£>oi 

O.S11E+00 

0.167Et01 

0.663E>00 



VOLUNETRIC NITRATE CONTENT Of SOIL JULIAN DAY 212 

AT the eno of NAIN 



UNITS 

. 

N6/N 

PER CM**3 




LEGEND 


1 

2 

3 

4 

5 

6 




<» 

0.0000 








0.0000 

< 

0 

<m 

0.0100 

1 

1 

1 

1 

1 

1 

1 

* 





2 

1 

1 

1 

1 

1 

1 

0.0100 

< 

1 

<* 

0,0200 

3 

2 

2 

2 

2 

2 

2 






4 

1 

1 

1 

1 

1 

1 

0.0200 

< 

2 


0.0300 

S 

1 

1 

1 

1 

1 

1 






6 

1 

1 

1 

1 

1 

1 

0,0300 

< 

3 

<« 

0.0400 

7 

1 

1 

1 

1 

1 

1 






8 

1 

1 

1 

1 

1 

1 

0.0400 

< 

4 

<» 

0.0500 

9 

1 

1 

1 

1 

1 

1 






10 

0 

0 

0 

0 

0 

0 

0.0500 

< 

5 

<» • 

0.0600 

11 

0 

0 

0 

0 

0 

0 






12 

0 

0 

0 

0 

0 

0 

0.0600 

< 

6 

<a 

0.0700 

13 

0 

0 

0 

0 0 

0 

0.0700 





14 

0 

0 

0 

0 

0 

0 

< 

7 

<M 

0.0800 

15 

0 

0 

0 

0 

0 

0 






16 

0 

0 

0 

0 

0 

0 

0.0800 

< 

8 

<■ 

0,0900 

17 

0 

0 

0 

0 

c 

0 






18 

0 

0 

0 

0 

0 

0 

0.0900 

< 

9 

<m 

0.1000 

19 

0 

0 

3 

0 

0 

0 






20 

0 

0 

0 

0 

0 

0 

0.1000 

< 

• 




TOTAL 

a 


55 

.1046 MG N 






VOLUMETRIC WATER CONTENT OF SOIL JULIAN DAY 212 

AT THE ENO OF MAIN 



UNITS 

o» 

CM**3/CM**3 

SOIL 




LEGEND 


1 

2 

3 

4 

5 

6 




<a 

0.0000 








0.0000 

< 

0 


0.0500 

1 

7 

7 

7 

7 

7 

7 






2 

8 

8 

a 

8 

8 

8 

0.0500 

< 

1 

<a 

o.inoo 

3 

9 

9 

9 

9 

9 

9 






4 

7 

7 

7 

7 

7 

7 

. 0.1000 

< 

2 

<a 

0.1500 

5 

7 

7 

7 

7 

7 

7 






6 

5 

6 

6 

6 

6 

5 

0.1500 

< 

3 

<a 

0.2000 

7 

5 

6 

6 

6 

6 

5 






8 

6 

6 

6 

6 

6 

6 

0.2000 

< 

4 

<a 

0.2500 

9 

6 

6 

6 

6 

6 

6 






10 

6 

6 

6 

6 

6 

6 

0.2500 

< 

5 

<a 

0.3000 

11 

6 

6 

6 

6 

6 

6 






12 

7 

7 

6 

6 

7 

7 

0.3000 

< 

6 

<a 

0.3500 

13 

7 

7 

7 

7 

7 

7 


it 




14 

7 

7 

7 

7 

7 

7 

0.3500 

< 

7 

<a 

0.4000 

IS 

7 

7 

7 

7 

7 

7 






16 

7 

7 

7 

7 

7 

7 

0.4000 

< 

8 

<a 

0.4500 

17 

a 

8 

8 

8 

8 

8 






18 

8 

a 

8 

8 

8 

3 

0.4500 

< 

9 

<« 

O.SCOO 

19 

9 

9 

9 

9 

9 

9 






20 

9 

9 

9 

9 

9 

9 

0.5000 

< 

* 




total 

S' 


227.8863 

MM WATER 
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OF piolJ- IS 
POOR QUALITY 


ROOTS IN each CEUL, TOTAL . JULIAN DAY 212 

AT THE END OF RUT6RO. 



UNITS 

- 

G/CM**3 SOIL 





LEGEND 


1 

2 

3 

4 

5 

6 




<M 

O.QQOO 








0.0000 

< 

0 

<« 

0.0001 

1 

S 

2 

1 

1 

Q 







2 

9 

8 

6 

3 

2 

2 

0.0001 

< 

1 

<» 

0.0005 

3 

5 

5 

4 

3 

2 

2 






4 

5 

5 

5 

4 

2 

2 

0.0005 

< 

2 

<■ 

0.0050 

5 

5 

5 

5 

3 

2 

2 


♦ 




6 

4 

4 

5 

3 

2 

1 

Q.OOSO 

< 

3 


0.0100 

7 

3 

4 

4 

3 

2 

1 






8 

3 

4 

4 

3 

2 

1 

0.0100 

< 

4 

<» 

0.0150 

9 

3 

4 

4 

3 

2 

1 






to 

3 

4 

4 

3 

2 

1 

0.0150 

< 

5 

<a 

0.0200 

11 

3 

4 

3 

3 

2 

1 






12 

3 

3 

3 

2 

2 


0.0200 

< 

6 

<" 

0.0250 

■13 

3 

3 

3 

2 

2 

1 






14 

3 

3 

2 

2 

2 

1 

0.0250 

< 

7 

<n 

0.0300 

IS 

2 

2 

2 

2 

1 

1 






16 

2 

2 

2 

2 

1 

1 

0.0300 

< 

S 


0.0350 

17 

2 

2 

2 

1 

1 

0 






18 

2 

2 

1 

1 

0 

0 

0.0350 

< 

9 

<■ 

0.0400 

19 

1 

1 

1 

0 

0 

0 






20 

1 

1 

Q 

0 

0 


0.0400 

< 

* 

. 



TOTAL 

a 


0.6646 

GM. DRY WEIGHT 



PSfS FOR EACH LAYER ANO COLUMN JULIAN OAY 212 

AT THE ENO OF MAIN 



UNITS 

- 

CM**3/CM**3 

SOIL 




LEGEND 


1 

2 

3 

4 

5 

6 




<» 

-15.0000 








-15.0000 

< 

0 

<a 

-10.0000 

1 

6 

6 

6 

6 

6 

6 






2 

7 

7 

7 

7 

7 

7 

-10.0000 

< 

1 

<■ 

-6.0000 

3 

6 

6 

6 

6 

6 

6 






4 

3 

3 

3 

3 

3 

3 

->4^.0000 

< 

2 

<a 

-3.0000 

5 

3 

3 

3 

3 

3 

3 

If 





6 

2 

3 

3 

3 

3 

2 

-3.0000 

< 

3 


-1.5000 

7 

3 

3 

3 

3 

3 

3 






8 

3 

3 

3 

3 

3 

3 

-1.5000 

< 

4 

<» 

-1 .0000 

9 

J 

3 

3 

3 

3 

3 






10 

4 

3 

3 

3 

3 

4 

-1.0000 

< 

5 

<a 

-0.6000 

11 

4 

4 

4 

4 

4 

4 






12 

4 

4 

4 

4 

4 

4 

-0.6000 

< 

6 

<a 

-0.4000 

13 

4 

4 

4 

4 

4 

4 






14 

5 

5 

3 

5 

5 

5 

-0.4000 

< 

7 

<a 

-0.2000 

15 

5 

5 

5 

5 

5 

5 






16 

6 

6 

6 

6 

6 

6 

-0.2000 

< 

8 

<a 

'-0.1000 

17 

6 

6 

6 

6 

6 

6 





0 

18 

6 

6 

6 

6 

6 

6 

-0.1000 

< 

9 

<a 

0.0000 

19 

7 

7 

7 

7 

7 

7 






20 

7 

7 

7 

7 

7 

7 

0.0000 

< 

* 




TOTAL » 227.8863 MM WATER 


*** FINAL YIELO {BU/ACRE) IS 44.94 ON OAY 212 
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